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(57) Abstract 

A patient monitor (4 ) having an electrocard- 
iographic signal source (2) and an electroplethys- 
mographic respiratory signal source (3) provides in- 
puts to an ECG trigger circuit (5) and an analog-to- 
digital interface respectively which in turn provide 
data and control signals to a personal computer (7) 
programmed to automatically correct the data for ar- 
tifacts and analyze the spectral densities of the sig- 
nals which are then shown on display (9). 
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METHODS AND APPARATUS FOR MONITORING 
CARDIOVASCULAR REGULATION USING HEART 
RATE POWER SPECTRAL ANALYSIS 



Background of the Invention 

10 The present invention relates in general to 

methods and apparatus for monitoring cardiovascular 
regulation and in particular to methods and apparatus 
for heart rate spectral analysis. 

Changes in cardiovascular regulation 

15 associated with congestive heart failure include 

attenuation of activity in the parasympathetic division 
of the autonomic nervous system, enhancement of activity 
in the sympathetic division of the autonomic nervous 
system, cardiac catecholamine depletion, down regulation 

20 of the beta-receptor system, increased renin-angiotensin 
system activity, and alteration of baroreceptor 
function. All of these regulatory changes require 
either specific clinical manipulations, such as a stress 
test, a Valsalva maneuver, or the like, and/or invasive 

25 maneuvers, such as cardiac biopsy, plasma catecholamine 
measurement, or the like, in order to determine the 
extent of regulatory dysfunction and its impact upon the 
clinical state of the patient and upon prognoses for the 
patient • These procedures are time consuming, and 

30 generally do not permit the formation of a clinical 

judgment and subsequent action within the timeframe of 
the course of treatment for critically ill patients in 
an Intensive Care Unit, 

Fluctuations from heartbeat to heartbeat in 

35 measured properties of the circulatory system reflect 
both the presence of a variety of naturally occurring 
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physiological disturbances of the circulatory system 
homeostasis , and the dynamic response of cardiovascular 
control systems to these disturbances. For example , the 
cyclic variation in intrathoracic pressure which 
5 accompanies breathing mechanically affects the return of 
venous blood to the heart and also affects blood 
pressure in pulmonary vessels and in the aorta. The 
variation in intrathoracic pressure is also coupled to a 
cyclic variation in heart rate through a neural 

10 mechanism mediated by the central nervous system. 

Furthermore, the resulting cyclic variation in arterial 
blood pressure impinges on heart rate through a reflex, 
known as the baroreceptor reflex, which is mediated by 
the autonomic nervous system. Disturbances in 

15 cardiovascular homeostasis also occur with fluctuations 
in the resistance of peripheral blood vessels as 
vascular beds regulate local blood flow to match supply 
with demand. These fluctuations in peripheral 
resistance may perturb central blood pressure and, 

20 through the baroreceptor reflex, may also lead to a 
compensatory variation in heart rate. 

Many types of medical instruments exist for 
studying heart rate variability. The instantaneous 
rate-meter is perhaps the earliest such instrument. 

25 This meter measures each RR interval through analog or 
digital circuitry and displays the instantaneous heart 
rate. 

An improvement in the rate-meter is achieved 
by performing first order statistical evaluation on the 
30 RR-intervals. With mini- and micro-computer systems, 
histogram displays of RR-interval differences may be 
generated along with their mean and standard deviations. 

Another technique for heart rate variability 
analysis involves the study of spectral content of the 
35 instantaneous heart rate time series. In one approach 
to spectral analysis in animals, the computations are 
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done on a computer. Akselrod, et al., Science / 213 / 
220-222 (1981) Hyndman, et al.# Automedica , I, 239-252 
(1975). Such systems analyze data recorded on magnetic 
or punched tape. However/ not only do these systems 
5 introduce additional errors during the recording 

process/ they do not perform in real time. Furthermore/ 
these systems are not multichannel in nature. 

A Sparse Discrete Fourier Transform algorithm 
which may be implemented on a personal computer (CBM 

10 2016) and which may perform on-line monitoring of heart 
rate variability/ based on a low pass filtered cardiac 
event series is disclosed in Rompelman, et al. f IEEE 
Trans. Biomed. Engineering/ BME-29 / 503-510 (1982). A 
specialized hardware device also exists for low pass 

15 filtering the cardiac event series by a stepwise. 

convolution to create the low pass filtered cardiac 
event series. Coenen, et al., Medical and Biological 
Engineering and Computing , 15 / 423-430 (1977)'. 
Nevertheless, these instruments posses a limited band 

20 width and a limited frequency resolution capability. 
There exists a need for an instrument which 
provides multi-channel spectral analysis of an 
instantaneous heart rate and of a respiratory activity 
time series. There also exists a need for an instrument 

25 wherein such calculations are performed in real time at 
the bedside. 

Summary of the Invention 

30 An apparatus according to the present 

invention corrects artifacts in a series of 
heartbeats. Means for collecting a series of heartbeat 
samples are coupled to means for determining a mean 
interval between heartbeats. Means for identifying a 

35 mean variance among the intervals between heartbeats 
samples are coupled to means for establishing an 



WO 86/07248 



PCT/US86/01I93 



- 4 - 

acceptable of slewing rates as a function of the mean 
variance. Means for particularizing the absolute value 
of the slewing rate of a heartbeat sample relative to 
the mean interval are coupled to the means to 
5 determining and means for substituting the mean interval 
between heartbeats for all heartbeat interval samples 
having an absolute outside the range of acceptable 
slewing rates are coupled to the means for 
particularizing. 

10 A method according to the present invention 

corrects artifacts in a series of heartbeats. A series 
of heartbeat interval samples is collected and an 
appropriate interval between heartbeats is determined. 
Variances in the intervals between heartbeats are 

15 identified and an acceptable range of slewing rates is 
established as a function of a mean variance. An 
absolute value of the slewing rate of a heartbeat sample 
relative- to the mean interval is particularized. An 
appropriate interval is substituted for all heartbeat 

20 interval samples having an absolute value outside the 
range of acceptable slewing rates. 

Apparatus according to the present invention 
calibrates a heart rate power spectrum monitor. Means 
for supplying a signal simulating a heart rate, means 

25 for generating a signal simulating a respiratory 
■frequency fluctuation in heart rate and means for 
providing a signal simulating a low frequency 
fluctuation in heart rate are coupled to means for 
applying signals from these means to a heart rate power 

30 spectrum analyzer. 

Apparatus according to the present invention 
performs heart rate fluctuation power spectral 
analysis. Means for providing an electrocardiogram 
signal and means for supplying elect roplethysmogram 

35 signal are coupled to means for obtaining a heart rate 
fluctuation power spectrum from an electrocardiogram 
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signal and from an electroplethysmogram signal* Real 
time means for displaying a heart rate_f luctuation power 
spectrum are coupled to the means for obtaining. 

Apparatus according to the present invention 
5 trends heart rate fluctuation power spectral data. 

Means for providing an electrocardiogram signal and the 
means for supplying an electroplethysmogram signal are 
coupled to means for obtaining a heart rate fluctuation 
power spectrum from an electrocardiogram signal and from 

10 an electroplethysmogram signal. Means for storing heart 
rate fluctuation power spectral data are coupled to 
means for obtaining. Addressable means for transmitting 
stored heart rate fluctuation power spectral data are 
coupled to the means for storing and means for 

15 converting heart rate fluctuation power spectral data 
into graphic form are coupled to the addressable means 
for transmitting-. Real time means for displaying heart 
rate fluctuation power spectra are coupled to the means 
for converting. 

20 A method according to the present invention 

treats conditions related to malfunctions of the 
cardiovascular control system. A power spectrum of 
heart rate fluctuations in the patient are monitored. A 
level below about 0.1 (beats/min. ) 2 in the power 

25 spectrum of heart rate fluctuations is identified at a 
frequency between about 0.04 and about 0.10 Hz as 
indicative of cardiovascular instability. Procedures 
are applied to treat the condition and thereby to 
increase the level of heart rate fluctuations at a 

30 frequency between about 0.04 and about "0.10 Hz. 

A method according to the present invention 
treats conditions related to malfunctions of the 
cardiovascular control system in a patient. A power 
spectrum of heart rate fluctuations is monitored in the 

35 patient. A marked increase to above about 10 

(beats/min.) 2 in heart rate fluctuations at a frequency 
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between about 0.04 to about 0.10 Hz is identified as 
indicative of cardiovascular stress. Procedures are 
applied to treat the condition and thereby to decrease 
the level of heart rate fluctuations between about 0.04 
5 and about 0.10 Hz. 

Yet another method according to the present 
invention treats conditions related to malfunctions of 
the cardiovascular control system in a patient. A power 
spectrum of heart rate fluctuations in the patient is 

10 monitored. A ratio of the area under a heart rate power 
spectrum peak at a frequency between about 0.04 and 0.10 
Hz to the area under a peak in the respiratory power 
spectrum centered at the mean respiratory rate about 0.1 
Hz is identified as having an absolute value less than 

15 2.0 for longer than or equal to about one hour as 
indicating of cardiac instability. Procedures are 
applied to treat the condition and thereby to increase 
the ratio. 

Still another method according to the present 
20 invention treats conditions related to malfunctions of 

the cardiovascular control system in a patient. A power 
spectrum of heart rate fluctuations in the patient is 
monitored. A ratio of the area under a heart rate power 
spectrum peak at a frequency between about 0.04 and 0.10 
25 Hz to the area under a peak in the respiratory power 

spectrum centered at the mean respiratory rate about 0.1 
Hz is identified as having an absolute value greater 
than or about 50 as indicating of cardiac instability. 
Procedures are applied to treat the condition and 
30 thereby to increase the ratio. 

Brief Description of the Drawings 

Fig. 1 illustrates low frequency, 
35 mid-frequency and high frequency in the power spectrum 
of heart rate fluctuations in a dog according to the 
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prior art; 

Pig. 2 illustrates aspects of the 
cardiovascular control system according to the prior 
art; 

5 Fig. 3 is a block diagram of apparatus for 

heart rate fluctuation power spectral analysis according 
to the present invention; 

Fig. 4 illustrates address buffers and address 
decoding in a data acquisition device according to the 
10 present invention; 

Fig. 5 illustrates components according to the 
present invention for interfacing an ECG apparatus with 
a personal computer according to the present invention; 

Fig. 6 illustrates a digital to analog 
15 converter according to the present invention; 

Fig. 7 illustrates a ECG trigger according to 
the present invention; 

Fig. 8 illustrates a portable calibrator 
according to the present invention; 
20 Figs. 9A and B are halves of a flow chart for 

software applicable to an embodiment of the present 
invention on a IBM personal computer; 

Fig. 10 illustrates a trend for a stable 
patient according to the present invention; 
25 Fig. 11 illustrates a trend display for an 

unstable patient according to the present invention; 

Fig. 12 is an illustration of an instantaneous 
heart rate according to the present invention; 

Fig. 13 is an illustration of an instantaneous 
30 heart rate fluctuation spectrum of the sort obtainable 
from apparatus according to the present invention; 

Fig. 14 is a stable patient's heart rate 
fluctuation power spectrum according to the present 
invention; 

35 Fig. 15 is an unstable patient's heart rate 

fluctuation power spectrum according to the present 
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invention; 

Pig. 16 depicts distributions in LFP data 
obtained according to the present invention for stable 
and for unstable patients; 
5 Pig. 17 graphically depicts distributions of 

RFP data according to the present invention for stable 
and for unstable patients; and 

Fig. 18 graphically depicts data for LFP/RFP 
ratios according to the present invention for stable and 
10 for unstable patients. 

Detailed Description 

Power spectral methods may be used to analyze 
15 the frequency content of fluctuations in heart rate and 
other hemodynamic parameters. Hyndman, et al., Nature/ 
233 y 339-341 (1971); Sayers, Ergonomics , 16, 17-32 
(1973). Short term (i.e./ on a time scale of seconds to 
minutes) fluctuations in these parameters are 

20 concentrated in three principal spectral peaks as 

illustrated for a canine model in Fig. 1. Akselrod, et 
al., supra . One peak is centered at the respiratory 
frequency; this peak shifts with changes in the 
respiratory rate. The second identifiable spectral 

25 peak, the mid-frequency peak, occurs typically between 
0.1 and 0.15 Hz. The oscillations associated with this 
second peak occur at 6-9 cycles per minute, a 
considerably lower frequency than the respiratory 
frequency/ and are related to the frequency response of 

30 the baroreceptor reflex. The third peak of the spectrum 
typically occurs in the frequency band of 0.04 to 0.10 
Hz. This low frequency peak is related to 
thermoregulatory fluctuations in vasomotor tone. 

In one approach to the spectral analysis of 

35 heart rate, properties of the heart rate fluctuations in 
the conscious dog may be related to the activity of 
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three cardiovascular control systems - the 
parasympathetic nervous system, the sympathetic nervous 
system and the renin-angiotensin system, Akselrod, et 
al., Science , 213 , 220-223 (1981)- This model is 
5 further elaborated in Akselrod, et al., "Hemodynamic 
Regulation: Investigation by Spectral Analysis " (In 
Press). Heart rate fluctuations occurring at 
frequencies above roughly 0.1 Hz are mediated solely by 
the parasympathetic system. Blockade of the 

10 renin-angiotensin system leads to a dramatic increase in 
the amplitude of the low frequency peak. The effects of 
an autonomic blockade also exist in humans and changes 
in body posture alter sympathetic-parasympathetic 
balance as measured by the heart rate power spectrum, 

15 Pomeranz, et al., Am, J. Physiol. , 248 , H151-H153 
(1985) . 

A simple model of the short term 
cardiovascular control system is illustrated in Fig. 
2. Akselrod, et al., supra. In this model, heart rate 

20 is directly modulated by the sympathetic and 

parasympathetic nervous systems. Through a variety of 
receptors both these systems sense, fluctuations in 
cardiovascular parameters including arterial and venous 
pressures, vascular volumes, and correlates of blood 

25 flow and oxygenation. The parasympathetic system may 
respond over a wide frequency range while the 
sympathetic system may only respond at relatively low 
frequencies below roughly 0.1 Hz. 

A hypothesis was proposed in Akselrod, et al., 

30 Science, 213, 220-223 (1981), that fluctuations in 

vasomotor tone associated with the low frequency heart 
rate fluctuations are not solely related to 
thermoregulation but also reflect local adjustment to 
resistance in individual beds of blood vessels in order 

35 to match local blood flow to local metabolic demand. 

Such fluctuations in peripheral vasomotor tone lead to 
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fluctuations in central blood pressures which are in 
turn sensed by pressoreceptors. Stimulation of these 
pressoreceptors occasions an autonomically mediated 
baroreceptor reflex , which leads to compensatory 
5 fluctuations in heart rate at the corresponding 

frequency. In addition , the renin-angiotensin hormonal 
system senses blood pressure fluctuations and, through 
the elaboration of a substance called angiotensin 11, 
plays the role of the guardian of the overall peripheral 

10 vascular resistance. Blockade of the renin-angiotensin 
system by a converting enzyme inhibitor, may remove this 
damping influence and may permit increased fluctuations 
in blood pressure and increased compensatory 
fluctuations in heart rate in the low frequency regime. 

15 The critically ill infant or child prior to, 

during, and after cardiac surgery at times exhibits 
marked changes in heart rate, blood pressure , and 
peripheral perfusion. These changes may be of no 
clinical consequence or they may indicate the existence 

20 of a major unrecognized pathology whose first outward 

manifestation may be sudden cardiac arrest. To be able 
to quantify cardiovascular regulatory reserve permits 
objective assessment of a patient's cardiovascular 
stability as well as their response to medical and 

25 surgical interventions intended to improve 
cardiovascular function. 

Spectral analysis of tape-recorded records of 
ECG and respiratory activity from patients with complex 
congenital heart diseases and myocarditis reveals 

30 peculiarities in low frequency heart rate fluctuations 
not seen in studies of healthy children and adults. In 
particular: (1) low levels of low frequency heart rate 
fluctuations are noted for critically ill patients in 
congestive heart failure , which levels revert to normal 

35 after surgical or medical treatment and (2) a marked 
increase in low frequency heart rate fluctuations is 
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observed in patients with otherwise undetected cardiac 
tamponade . 

A transitional microprocessor-based monitoring 
instrument, which utilized a Z-80 microprocessor ^jid a 
5 S-100 bus, was constructed along with a data acquisition 
system which interfaced the microprocessor with a 
Hewlett-Packard 78341 patient monitor, 

A prototype system is described in Jerome C. 
Tu, "Microprocessor System for Real-Time Spectral 

10 Analysis Physiological Signals , " Master of Department of 
Electrical Engineering and Computer Sciences, Science 
Thesis, Massachusetts Institute of Technology (1984). 
An electrocardiogram (ECG) was inputed into a the data 
acquisition system from a patient monitor for this 

15 prototype system. 

In the data acquisition system, the analog 
voltage signal of the ECG was applied to the input of a 
variable frequency voltage-controlled oscillator in the 
data acquisition system. A counter coupled to the 

20 output of the VCO provided a digital representation of 
the voltage associated with the ECG peaks. The largest 
voltage peak, called the R voltage peak and associated 
in the ECG with ventricular contraction, was used to 
trigger a clock. Each R peak loaded the value of the 

25 clock into a holding register and restarted the clock. 
The value of the clock provided a measure of the heart 
rate as the inverse of the time between beats, (i.e., as 
the RR internal) 

The regular respiratory signal of a patient on 

30 a ventilator was employed to obtain a respiratory 

spectrum and was similarly obtained through a VCO The 
respiratory frequency had to be manually entered in 
order to establish a fixed window for computing the 
power in the heart rate power spectrum in the 

35 respiratory peak. 

Every 256 seconds the digitized ECG RR 



WO 86/07248 



PCT/US86/01193 



intervals were inputed into the microprocessor from the 
data acquisition system. A smoothed heart rate 
"tachometer wave form" was created as follows: (1) the 
instantaneous heart rate time series was computed from 

5 the stored RR intervals; (2) a 1024 point time series of 
the instantaneous heart rate was computed from the 
stored instantaneous heart rate time series by sampling 
the latter at 4 Hz; (3) the mean heart rate computed 
from the 1024-point time series of instantaneous heart 

10 rate was subtracted from the smoothed series resulting 
in a "tachometer waveform". The heart rate power 
spectrum was computed from the heart rate "tachometer 
waveform" as follows: (1) a 1024-Point Fast Fourier 
Transform was computed using 1024 points of the 

15 tachometer cardiac tachometer waveform; and (2) the 

heart rate power spectrum was computed by squaring the 
absolute value of the previously calculated transform. 

As new data was inputted into the computer's 
buffer, the results of the smoothed cardiac tachometer 

20 signal , power spectrum and integral of power spectrum 
were outputted onto a printer. Thus, for every 
256-second time interval, a spectral representation of 
the preceding 256 seconds of instantaneous heart rate 
data was exhibited. 

25 From the above data, the area under the low 

frequency peak (LFP) between 0.04 and 0.1 Hz and the 
area under the respiratory frequency peak (RFP) within a 
peak width window of 0,2 Hz were determined. Trend 
graphs of LFP, RFP, and LFP/RFP ratio were created. The 

30 256 second data segments were rejected if, (1) the 

patient was not in sinus rhythm; (2) transients and/or 
artifact were present on the cardiac "tachometer wave 
form"; and (3) the LFP/RFP ratios were greater than 2 
standard deviations from the mean for the study period. 

35 The practical problems associated with this 

prototype monitoring instrument included the extremely 
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tedious calculations required for use of the prototype 
with free-breathing patients and the large amount of 
data (as much as 50% f in some instances) which had to be 
discarded due to the presence of motion artifacts. 
5 These artifacts resulted from virtually any disturbance 
of the patient , even a disturbance so slight as holding 
the patient's hand. The prototype system had no 
capacity to identify or reject artifacts or to examine 
the data for dropped beats and premature triggers. 

10 Upon reviewing clinical studies performed 

using the prototype, it was discovered that not only 
were attenuated low frequency heart rate fluctuations 
associated with a severely compromised regulatory 
reserve but also that the ratio of the power in the 

15 heart rate power spectrum at low frequency to the power 
at the respiratory frequency provided an even sharper 
discriminatory index between stable and critically ill 
patients. In addition it was noted that this ratio was 
markedly elevated in the setting of moderate to severe 

20 congestive heart failure, cardiac tamponade, and prior 
to the development of malignant ventricular arnythmias. 

A low value for LFP/RPP (<2) which is 
sustained for greater than one hour or a value greater 
than or about 50 is associated with a clinical course 

25 characterized by cardiac arrest and/or profound 

hypotension. At times this ratio may be the only 
clinical indicator of cardiovascular instability. The 
LFP/RFP ratio provides a sensitive and specific index of 
cardiovascular instability and may provide a clinically 

30 important, continuous, non-invasive probe of 
cardiovascular stability. 

In order to further examine the diagnostic 
value of the power spectrum of heart rate fluctuations 
and to overcome the difficulties with the prototype, a 

35 multipurpose microcomputer-based system, including data 
basing, instantaneous heart rate and respiratory 
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activity spectral monitor , was developed using a Hewlett 
Packard Series 200 Computer and Multiprogrammer as 
available from Hewlett-Packard. Advantages over the 
original design includes (1) error correcting routines 
5 which correct automatically for motion artifact and 
missed triggerings of the EKG, thus permitting a 
substantial increase (>30%) in available data; (2) 
automated trending of spectral densities along with the 
instanteous heart rate and respiratory activity time 

10 series; and (3) a data basing program which permits 

accurate temporal correlation of spectral densities with 
virtually every clinical intervention, routine 
ventilatory changes , hemodynamic, fluid monitoring and 
laboratory results. Software incorporating these 

15 advantages is included herein as Appendix A. 

In a further improvement, programs and a data 
acquisition- system and programs were developed for use 
with an IBM PC or compatible personal computer. This 
improvement is illustrated in Figs. 3 through 12. 

20 In Pig. 3, a block diagram of apparatus 

according to the present invention is illustrated. In 
Pig. 3, a source of an ECG signal 2 and a source of an 
electroplythsmogram signal 3 are contained within a 
patient monitor 4. A patient monitor for use with the 

25 present invention may be the System 2 Infant Monitor 
available from ARVEE r Incorporated, Battle Creek, 
Michigan. Source 2 is connected to an ECG trigger 5 
which is in turn connected to a personal computer 7. 
Source 3 is connected to an analog to digital interface 

30 6. Interface 6 is connected to analog converter 8 which 
is connected in turn to a personal computer 7. Personal 
computer 7 receives input from and provides output to 
interface 6. Personal computer 7 is connected to a 
display 9. 

35 Source 2 receives input from pregelled 

electrodes adhered to the chest wall and thigh of the 
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patient. Source senses respiratory activity through a 
pair of electrodes by the impedence method. Personal 
computer 7 and display 9 are available as an IBM PC and 
a compatible display available from IBM, Incorporated, 
5 Armonk, New York. Elements 5/ 6 and 8 are described 
below. 

In a data acquisition device according to the 
present invention, address buffers and address decoding, 
as illustrated in Pig. 4, receive input from a PC bus 

10 10. Nodes 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 
22, 23, 24, 25 and 26 are respectively connected to 
address lines AO, Al, A2, A3, A4, A5, A6, A7, A3, A9 , 
A10, All, A12, A13, A14 and A15 in PC bus 10. A first 
address buffer 100 has address inputs AO, Al, A2, A3, 

15 A4, A5, A6 and A7 which are respectively connected to 
nodes 11-18. Buffer 100 also has two gate inputs , 1G 
and' 2G, which are connected to ground along with a 
ground output GND of buffer 100, A power supply input 
V cc of buffer 100 is connected to a node 102 at a 

20 potential of +5 volts. 

A second address buffer 110 has address inputs 
A8, A9, A10, All, A12, A13, A14 and A15 which are 
respectively connected to nodes 19-26. Buffer 110 also 
has two gate inputs, 1G and 2G, which are connected by 

25 way of a node 111 to ground. A ground GND output of 
buffer 110 is also connected to a common potential. 
Buffer 110 has a power supply input V cc which is 
connected to a node 112 at a potential of +5 volts. 

A status buffer 120 has address inputs A16, 

30 A17, A18 and A19 which are respectively connected to 

nodes 27, 28, 29 and 30. Nodes 27-30 are respectively 
connected to an address enable line AEN, a reset line 
RES, an input/output read line IOR and an input/output 
write line IOW in PC bus 10. Buffer 120 has two gate 

35 inputs, 1G and 2G, which are connected by way of -a node 
121 to ground. A ground output GND of buffer 120 is 
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also connected to ground by way of node 121. A power 
supply input V cc of buffer 120 is connected to a node 
122 at a potential of +5 volts. 

According to the present invent ion , a data 
5 acquisition system board which is both reliable and 

compatible with a personal computer (PC) bus, preferably 
adheres to the timing requirements and the loading 
requirements supplied by the PC* bus. This means that 
all connections to the PC bus should be buffered so that 

10 the load provided at any input or output of the bus is 
equivalent to 1 LS TTL load and high speed CMOS 
integrated circuits are provided for this purpose. 

Because there are multiple devices attached to 
the address bus, address buffers are provided. This is 

15 done by buffers 100 and 110. Parts used for buffers 
100, 110 and 120 are normally gated, but the gate 
enables, 1G and 2G, are tied to ground so that the gates 
are always enabled. Some of the status lines on the PC 
bus are buffered by a chip 120, in particular: the 

20 reset line RES; the read and write lines IOR and IOW 
respectively, for the input/output (IO) channels; and 
the address enable AEN. 

An address decoder according to the present 
invention, as illustrated in Pig. 4, includes a three to 

25 eight line decoder 130. Decoder 130 has three line 

inputs A, B and C which are respectively connected to 
outputs B2, B3 and B4 of buffer 100. Decoder 130 has 
gate inputs G2A and G2B which are respectively connected 
to outputs B5 and B6 of buffer 100. A power supply VCC 

30 input of decoder 130 is connected to a node 131 at a 
potential of +5 volts while a ground GND output of 
decoder 130 is connected to a common potential. Outputs 
YO, Yl, Y2, Y3, Y4, Y5, Y6 and Y7 are connected to 
inputs, of a NAND gate 140. 

35 A NAND gate 151 has an input connected to each 

of outputs B8, B9 and BIO of buffer 110. An output B10 
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of buffer 110 is connected to an input of an inverter 
152 which has an output connected to an input of NAND 
gate 151. Similarly, outputs B12, B13, B14 and B15 of 
buffer 110 are respectively connected to an input of 
5 each of inverters 153, 154, 155 and 156, each of which 
has an output connected to an input of NAND gate 151. 
NAND gate 151 has an output connected to an input of an 

inverter 157. 

A NAND gate 158 has an input connected to an 
10 .output of inverter 157 and has an output connected to an 
input of an inverter 159. An inverter 160 has an input 
connected to an output B7 of buffer 100 and has an 
output connected to an input of NAND gate 158. 
Likewise, an inverter 161 has an input connected to an 
15 output B16 of buffer 120 and has an output connected to 
an input of NAND 158. An output of inverter 159 is 
connected to a gate input Gl of decoder 130. 

So that devices on the board are recognized at 
a particular 10 channel address, address decoding is 
20 provided. In this particular case, a fixed address 
location, location hex 700 to 71F (a total of 32 
channels), is used. The decoding of the fixed upper 
bytes in the address is provided by a combination of 
nine inverting gates, 152, 153, 154, 155, 156, 157, 159, 
25 160 and 161, and NAND gates 151 and 158. These 

elements, in combination with decoder 140, provide chip 
enable signals which can be used to select one or 
another of the functional chips on our board. Each of 
the eight chip enable signals correspond to a block of 
30 four channels . For example, a chip select #0 from 
output to of decoder 130 corresponds to channels hex 
700, 701, 702 and 703. 

A logic network for driving a data buffer, as 
illustrated in Fig. 5, includes a NAND gate 171, an 
35 inverter 172 and a NAND gate 173. An output of inverter 
172 is connected to a first input of NAND gate 173 while 
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an output of NAND gate 140 is connected by way of a node 
174 to a second input of NAND 173 and to a first input 
of a NAND gate 175, A second input of NAND gate 175 is 
connected to an output of NAND gate 171. 
5 In addition/ a node 181 is connected to an 

output BO of buffer 100. A node 182 is connected to an 
output Bl of buffer 100. Nodes 183 and 184 are respec- 
tively connected to output Y0 and output Y7 of decoder 
130. Nodes 185 and 186 are respectively connected to an 

10 output of NAND gate 175 and an output of NAND gate 

173. A node 187 is connected to an output B17 of buffer 
120. A node 188 is connected an output B18 of buffer 
120, to a first input of NAND gate 171 and to an input 
of inverter 172. A node 189 is connected to a second 

15 input of NAND 171 and to an output B19 of buffer 120. 

Additional chips are used to provide logic 
which drives a data buffer connected to a data bus. The 
data bus is bidirectional in order to both transmit data 
to and from devices on the board. In order that this be 

20 accomplished, one must determine at any time whether or 
not data is either being read from or written to the 
board. This logic is supplied by NAND gate 171, NAND 
gate 173, AND gate 175 and inverter 172 which translates 
the read and write signals for the input/output (10) 

25 channel into an output enable and a transmit enable 

for a data buffer. The apparatus of Fig. 4 may be used 
to properly interface a device to the PC bus 10. 

As illustrated in Pig. 5, components according 
to the present invention for interfacing an ECG 

30 apparatus with a personal computer include a port 

expander 200. Port expander 200 has four sets of 8 
nodes each, the four sets correspond to four ports A, B, 
C and D. The outputs for port A are AO, Al, A2, A3, A4, 
A5, A6 and A7. The inputs corresponding to port B are 

35 B0, Bl, B2, B3, B4, B5, B6 and B7 . Outputs 

corresponding to port C are CO, CI, C2, C3, C4, C5, C6 
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and C7. A set of outputs corresponding to port D 
includes DO, Dl, D2, D3, D4, D5, D6 and D7. Expander 

200 has a chip select input CS connected to node 184 . 
Expander 200 also has a read input RD and a write input 

5 WR respectively connected to nodes 188 and 189. 

Expander 200 has two address inputs, ADO and AD1 which 
are respectively connected to nodes 181 and 182. A 
reset RES input of expander 200 is connected to node 
187. Inputs A0 f Al, A2, A3, A4, A5 , A6, A7 are 
10 respectively connected to nodes 291, 292, 293, 294, 295, 
296, 297 and 298. Outputs D0-D7 are respectively 
connected to nodes 208, 207, 206, 205, 204, 203, 202 and 

201 which define a data bus. A power supply input V cc 
of expander 200 is connected to a node 209 at a 

15 potential of +5 volts. A ground GND output of expander 
200 is connected to a common potential. 

Port expander 200 is used to overcome the low 
speed of the data bus on both A/D converter 260 and a 
digital analog converter. This permits slowing down the 

20 read and write signals inasmuch as they may be provided 
artifically on port C of expander 200 or as chip select 
signals from address decoder 130. Port C of expander 
200 is a bit addressable register which allows one to 
individually select or deselect bits without affecting 

25 any of the other bits. This is accomplished by sending 
a one byte command to expander 200. Because expander 
200 is given the control function, the address of 
expander 200 is the highest address in the set of 
channels. In other words, expander 200 occupies 10 

30 channels hex 71C to hex 71F. The ports A, B and C on 
expander 200 are addresses 71C, 71D and 71E, 
respectively, and the control register internal for 
expander is at input/output I/O channel 71F. 

A timer 220 according to the present invention 

35 has two address inputs, ADO and AD1 respectively 

connected to nodes 181 and 182. Timer 220 also has a 
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read input RD connected to node 188, a write input WR 
connected to node 189 and a chip select input CS 
connected to node 184. A first gate input GO is 
connected to the CO of expander 200 while a second gate 
5 input Gl and a third gate input G2 are both connected by 
way of a node 223 to output CI of expander 200. Timer 
220 has three clock inputs CLK0, CLK1 and CLK2, of which 
CLK1 is connected by way of node 222 to an output OUTO 
of timer 220 and input CLK2 is connected to an output 
10 OUT1 of timer 221 by way of a node 31. An interrupt 

request line IRQ4 within PC bus 10 is also connected to 
node 31. 

An output OUT2 is connected to a non-inverting 
input of an operational amplifier 224 r an inverting 
15 input and a output of which are connected to a node 
400. 

A power supply input V cc . of timer 220 is 
connected to a node 221 which at a potential of +5 
volts . 

20 Timer 221 has seven outputs DO, Dl, D2, D3, 

D4, D5, D6 and D7 which are respectively connected to 
nodes 208, 207, 206, 205, 204, 203, 202 and 201. A 
ground output of timer 220 is connected to a common 
potential . 

25 Timer 220 includes three 16 bit timers which 

are addressed at hex locations 704, 705, 706, and 707. 
In other words, they are provided by chip select 1. The 
three clocks on timer 220 are connected in series which 
effectively converts it into a 48 bit counter. However, 

30 in the operation of the program, some of the bits in 
this counter are thrown away because the reset values 
are less than 65,536. The three clock registers are 
used in the following way. Counter 0, corresponding to 
input CLK 0, counts an onboard time base to be discussed 

35 later and provides an output which gives the minimum 

resolution of the heart rate counting. In other words, 
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it provides the counter time base for measuring the 
heart rate. Counter #1 # corresponding to input CLK 1, 
counts the heart rate counter time base and provides as 
an output an interrupt at IRQ4. This signal drives the 
5 sampling of the respiratory signal at a constant 
frequency, and is also used to measure interbeat 
intervals. In the standard data collecting mode, where 
one is interested in measuring the respiratory signal at 
4 hertz intervals , this means that the counter 0 is set 

10 to generate output pulses at 11 microsec. intervals and 
that these pulses are in turn counted by counter 1 to 
generate 4 hertz pulses which are used to drive data 
acquisition from the respiratory signal. The last 
counter register r counter #2, corresponding to input 

15 CLK2/ is used to count the number of respiratory 
sampling pulses which have been supplied. This 
functions as an overflow counter and always has the 
reset value of 65 , 536. Thus the counter measuring 
interbeat intervals effectively overflows only every 

20 65,536 respiratory sampling times , which is fax: in 
excess of what would be required to recover dropped 
beats which occur because the heart rate is not 
adequately detected. 

A counter 240 has an input 1A connected to a 

25 clock line PC CLK in PC bus 10 by way of a node 32. 

Counter 240 has a first output 1QA connected to the CLK0 
input of timer 220. Counter 240 has a secnd output 1QB 
and has a third output 1QC. A clear input CLR1 of 
counter 240 and a ground output GND of timer 240 are 

30 connected to a common potential by way of a node 242. 

A data output buffer 280 has an output enable 
input OE connected to node 185 and has a tranfer enable 
input TE connected to a node 186. Eight data inputs, 
AO, Al, A2, A3, A4, A5, A6 and A7, of buffer 280 are 

35 respectively connected to nodes 208, 207, 206, 205, 204, 
203, 202 and 201. A power supply V cc input of buffer 
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280 is connected to a source of potential at +5 volts. 
A ground GND output of buffer 280 is connected to a 
common potential. Outputs BO, Bl, B2, B3, B4, B5, B6 
and B7 of buffer 280 are respectively connected to data 
5 lines in PC bus 10 by way of nodes 33 , 34, 35, 36, 37 , 
38, 39 and 40. 

The time base for this clock system is 
provided by counter 240. Timer 220 counts only at a 
rate of 2.6 MHz megahertz which is exceeded by the IBM 
10 PC bus clock of 4.77 megahertz. The IBM PC bus clock is 
divided by 2 using counter 240 and the result used to 
provide a time base at 2.38 megahertz for timer 220. 
The 4.77 megahertz clock is also divided by 8 to provide 
a 596 kilohertz clock which is used to drive an analog 
15 to digital (A/D) converter. A/D converter 260 uses 
this clock signal in order to properly execute the 
successive approximation scheme to convert analog inputs 
into digital outputs. 

A/D converter 260 has an output enable input 
20 OE connected to output C4 of expander 200. A/D 

converter 260 also has three inputs A, B and C which are 
respectively connected to outputs C5, C6 and C7 of 
expander 200. A clock input CLK of A/D converter 260 is 
connected to the 1QC output of counter 240. An address 
25 latch enable ALE and a start input STR of A/D converter 
260 are connected to a node 261. A power supply V cc 
input and a reference voltage +V REF input of A/D 
converter 260 are connected to a node 262 at a potential 
of +5 volts. A reference voltage -V REF output and a 
30 ground GND output of A/D. converter 260 are connected to 
a common potential by way of a node 263. A/D converter 
260 has seven outputs DO, Dl, D2, D3, D4, D5, D6 and D7 
which are respectively connected to inputs B0, Bl, B2, 
B3, B4, B5, B6 and B7 of expander 200. In addition, A/D 
35 converter 260 has an end of count EOC output connected 
to a first input of the NAND gate 264, an output of 
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which is connected to an input of an inverter 265. A 
second input of NAND gate 264 is connected to an output 
of an inverter 266 which has an input connected to node 
187. An output of inverter 265 is connected to node 
5 261. 

A/D converter 260 has a signal input IN 
connected to a node 267. An output of an operational 
amplifier 268 is 'connected to node 267 and to a first 
lead of a resistor 269. A second lead of resistor 269 

10 is connected to a first lead of resistor 270, a second 
lead of which is connected to a source of potential at 
-5 volts. The first end of resistor 270 is also 
connected to an inverting input of amplifier 268 and to 
a first end of a resistor 271. A non-inverting input of 

15 amplifier 268 is tied to ground, A second end of 

resistor 271 is connected to a node 272 which provides 
an analog signal input ANA IN for the apparatus 
according to the present' invention. 

A/D converter 260 is connected to port B of 

20 port expander 200. This A/D has built into it its own 8 
channel analog multiplexer which allows the selection of 
one of eight analog signals to be converted. The 
channel select corresponding to inputs A. B and C of 
converter 260 is connected to port C on bytes 5, 6 and 

25 7. 

Because A/D converter 260 operates from 0 to 5 
volts, analog input at input IN should be in the range 
of 0 to 5 volts or an input buffer should be supplied to 
alter this input range. However, in keeping with 

30 general practices for safety and isolation, input IN 
should always be provided with an analog buffer to 
provide isolation for both the computer and the 
instrument being monitored. As illustrated, the input 
buffer is provided by operational amplifier 268. This 

35 amplifier converts a bipolar analog input of plus or 

minus 5 volts to a single unipolar input of 0 to 5 volts 
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at input IN. This analog input is used to monitor the 
respiration. 

A/D converter 260 is set up in a free running 
mode such that it continuously does conversions on the 
5 analog signal. The end-of-conversion pulse at output 
EOC is used to generate a start pulse for the A/D so 
that as soon as an end of conversion occurs it a new 
conversion is started. This is the reason for the two 
gates connected between end of conversion output EOC and 

10 the start input STR. In order to prevent latchup of the • 
device on power up, the reset line at node 187 is also 
used to generate a start pulse. This means that the 
device will always function even after being powered 
up. Also, in order to update A/D converter 260 as 

15 frequently as possible, the address latch enable ALE, 
which is used to' latch in the address value for the 
channel to be monitored, is re-latched at every start 
pulse. 

As illustrated in Fig. 6, digital analog (D/A) 

20 converter 300 has inputs DO, Dl, D2, D3, D4, D5, D6 and 
D7 which are respectively connected to nodes 298, 297, 
296, 295, 294, 293, 292 and 291 as illustrated in Fig. 
5. Converter 300 has a write WR input connected to node 
183 and has a feedback input RFB. Converter 300 also 

25 has a power supply V cc input, a reference voltage V REF 
input and an input latch enable input ILE all of which 
are connected to a source of potential at +5 volts by 
way of a node 301. Converter 300 has an analog ground 
AGND and a digital ground output DGND, both of which are 

30 connected by way of a node 302 to a common potential. 

Converter 300 has a first output OUT1 and a 
second output 0UT2 which are respectively connected to 
an inverting and a non-inverting input of an operational 
amplifier 303. The non-inverting input of amplifier 303 

35 is also connected to a common potential by way of a node 
305. Amplifier 303 has an input connected to a node 306 
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at a potential of +12 volts and an input connected to a 
node 307 at a potential of -12 volts. An output of 
amplifier 303 is connected to a node 308 which is 
connected to the RFB input of converter 300 and to a 
5 first end of a variable resistor 309. A second lead of 
variable resistor 309 is connected to a first lead of a 
variable resistor 310 , a second lead of which is 
connected to a node 311 at a potential of +5 volts. The 
second lead of resistor 309 is also connected to an 

10 inverting input of operational amplifier 312 and to a 

first lead of a resistor 313. A non-inverting input of 
amplifier 312 is connected to ground. A second lead of 
resistor 313 is connected to an output of amplifier 312 
and to a node 391 which serves as an analog output for 

15 the apparatus according to the present invention. 

Port A of expander which is at location 71C, 
is attached to a D/A converter data bus which f includes 
nodes 291-298. The write latch signal for the D/A 
converter is provided by chip select #0. In other 

20 words, any dummy byte written to any of the addresses 

700, 701, 702 or 703 hex will cause a write pulse to be 
sent to D/A converter- 300 , thereby latching the data on 
port A of expander 200 into the D/A converter 30 0 and 
allowing an analog signal to be generated corresponding 

25 to the digital input. The output of D/A converter 300 
chip is in the form of differential currents generated 
at outputs OUT 1 and OUT 2. A system having two 
operational amplifiers is employed to convert these 
currents to a voltage. Amplifier 303 is a differential 

30 current to voltage converter which provides a signal 

from 0 to 5 volts. Amplifier 312 converts the signal to 
a bipolar plus or minus 5 volt signal. Feedback control 
for the current to voltage converter is provided in D/A 
converter 300 through input RFB so that in actuality 

35 three connections are made from the D/A chip to the 

first operational amplifier. Because the D/A converter 
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is an 8 bit device, this provides 256 voltage levels 
which are linearly distributed between plus and minus 5 
volts. This D/A output may be used to generate 
calibrating signals or other control signals. 
5 As illustrated in Fig. 7, a source of an ECG 

signal is connected by way of a node 400 to a 
non-inverting input of an operational amplifier 401 in 
an ECG trigger 60. An input of amplifier 401 is 
connected to a node 402 at a potential of plus 12 

10 volts. An inverting input of amplifier 401 is connected 
to an output of amplifier 401 and to a non-inverting 
input of an operational amplifier 406. A first lead of 
each of resistors 403a, 403b, 403c, 403d, 403e, 403f , 
403g, 403h and 403i is connected to the output of 

15 amplifier 401 while the second lead of resistor 403i is 
permanently connected and a second lead of one other of 
resistors 403a through h is connected to a node 410 by a 
jumper. A first lead of capacitor 404 is connected to 
node 410 while a second lead of capacitor 404 is 

20 connected to a node 405 at a potential of minus 12 

volts. An inverting input of amplifier 406 is connected 
to a cathode of a diode 407, an anode of which is 
connected to an output of amplifier 406. The cathode of 
diode 407 is also connected to a first lead of capacitor 

25 403 and a first lead of each of resistors 410a, 410b, 

410c, 410d and 410e, the second lead of resistor 410e is 
permanently connected and the second lead of one other 
of which is connected to a node 410 (not shown) by a 
jumper 411g (not shown). A non-inverting input of an 

30 operational amplifier 412 is also connected to the 
cathode of diode 407 while an inverting input of 
amplifier 412 is connected to the output of amplifier 
406. An input of amplifier 412 is connected to a node 
413 at a potential of minus 12 volts. A first lead of 

35 resistor 414 is connected to the output of amplifier 412 
while a second lead of resistor 414 is connected to a 
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cathode of a diode 415 an anode of which is connected to 
ground. The cathode of diode 415 is also connected to 
an input of a Schmitt trigger 416 an output of which is 
connected to a line designated IRQ 3 in PC bus 10 by way 
5 of a node 491. 

ECG trigger 60 has an input buffer consisting 
of a non- inverting buffer of an amplifier 401 which 
isolates the ECG signal from the rest of the board. As 
illustrated in Fig. 5, the EKG trigger functions in the 

10 following manner. The R wave, which is larger than any 
other signal in the ECG, causes capacitor 408 to charge 
up to a certain value corresponding to the peak of the R 
wave. Any values beneath the peak of the R wave will be 
rejected by amplifier 403 so that no output occurs. 

15 Between R waves, the voltage on capacitor 405 decays 
slowly with a rate given by the RC time constant of 
capacitor 405 and the resistance across elements 410a- 
f. The voltage on the capacitor is sent to the 
inverting input on amplifier 403 and is used as a 

20 threshold for the R wave of the EKG. Therefore, as the 
electrocardiogram is being passed to the non-inverting 
input of amplifier 406, the only time that the 
operational amplifier has a positive output is when the 
EKG signal is larger than the voltage on capacitor 

25 405. Whenever this occurs, capacitor 408 is immediately 
charged up to the value at the EKG input. In other 
words, the voltage on capacitor 408 is a sort of 
envelope on the top of the electrocardiogram, although 
its decay rate is limited by the RC time constant. 

30 Diode 407 insures that the envelope function which is 

provided by capacitor 408 is the upper envelope and not 
the lower envelope. The lower envelope is provided by 
reversing the polarity of diode 407. 

The RC network of capacitor 405 and resistors 

35 403a-i provides a low pass filtered ECG. The voltage on 
capacitor 405 is the baseline for the ECG, which may 
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vary. The array of jumper selected resistors 410a-e 
allows variation of the time constant of the RC network 
containing resistors 406a-e and capacitor 408. Thus, 
this latter network which monitors the ECG envelope is 
5 referenced to the ECG baseline present on capacitor 404 
permitting accurate tracking of the envelope and 
therefore better R wave detection. As a further 
improvement/ the jumpers may be replaced with analog 
switches controlled by the personal computer in order to 

10 give the computer control of RC time constant selection. 

An output from ECG trigger 60 is generated by 
connecting amplifier 412 in parallel with peak detector 
amplifier 406 so that the inputs are reversed. The 
result is that the output polarity is inverted. Because 

15 the amplifiers 401, 406 and 412 are operating from a 
plus 12 volts to minus 12 volts supply, but the logic 
levels on the board are only from 0-5 volts, resistor 
414 and a diode 415 are used to clamp the output value 
of the amplifier 412 between 0 and 12 volts. This 

20 signal is then passed to a Schmitt trigger 416, which is 
a single conditioning device. The output of this signal 
conditioner is finally provided to PC bus 10 in order to 
drive interrupts at interrupt request 3 (IRQ3) 
indicating the currents of an R wave. ECG trigger 60 

25 may be modified to allow selection of various decay 

rates for the envelope and also to provide a floating 
threshold for the 0 point of the EKG. The ECG triggers 
if the R wave passes above 0 volts. However, it can be 
imagined that sometimes the baseline will drift far 

30 enough below 0 volts that the R wave does not cross 0 

volts and in such a case this trigger would never detect 
the R wave. This is corrected by connecting the second 
leads of the charging capacitor 408 and Gn the selected 
discharging resistor of 406a-f may be connected to a low 

35 pass filter consisting of a capacitor 405 and a selected 
one of resistors 403a-f (to choose various discharge 
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rates) which low pass filters the electrocardiograms and 
essentially selects out the baseline. This means that 
instead of measuring the R wave with respect to 0 volts , 
the R wave may be measured with respect to the floating 
5 baseline of the electrocardiogram. The jumper selected 
resistor selects an RC time constant much greater than 
the RR interval. So long as the baseline does not drift 
faster than one R wave in approximately 10 heart beats, 
this means that this trigger will successfully detect 
10 all R waves. Selecting one of resistors 410a-f allows 
variation of the RC time constant of elements 408 and 
410a-f • 

As illustrated in Fig. 8 r in a portable 
calibrator 70 according to the present invention , an 

15 operational amplifier 500 has a non-inverting input 

connected to a first lead of each of resistors 501 , 502 
and 503. A second lead of resistor 501 is connected by 
way of a node 503a to a positive voltage source while a 
second lead of resistor 502 is connected by way 'of a 

20 node 504 to a negative voltage source. An inverting 

input of amplifier 500 is connected to a first lead of a 
capacitor 505, a second lead of which is connected by 
way of a node 506 to a negative voltage source. The 
inverting input of amplifier 505 is also connected to a 

25 first lead of a variable resistor 507 and to a first 
lead of a resistor 508 a second lead of which is 
connected to an output of amplifier 500. The output of 
amplifier 500 is also connected to a second lead of 
resistor 503. Amplifier 500 has an input connected by 

30 way of a node 509 to a positive voltage source and by 
way of a node 510 to a negative voltage source. 

A second lead of resistor 507 is connected to 
a non-inverting input of an amplifier 511, an inverting 
input of which is connected to an output of amplifier 

35 511 by way of a node 591 which provides an output port 
for a simulated respiratory frequency. 
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A first lead of a resistor 512 is connected to 
node 591 while a second lead of resistor 512 is 
connected to a first lead of a resistor 513 and to a 
first lead of a capacitor 514 , a second lead of which is 
5 connected by way of a node 515 to a negative voltage 
source. A second lead of resistor 513 is connected to 
an output of an operational amplifier 514 and to an 
inverting input of amplifier 4 515 is connected to a first 
lead of a resistor 516, to a first lead of a capacitor 

10 517 and to an inverting input of an operational 

amplifier 513. The second lead of capacitor 517 is 
connected by way of a node 519 to a negative voltage 
source. A non-inverting input of amplifier 518 is 
connected to a first lead of each of resistors 520 , 521 

15 and 522. A second lead of resistor 520 is connected by 
way of a node 523 to a positive voltage source while a 
second lead of resistor 521 is connected by way of a 
node 524 to a negative voltage source. A second lead of 
resistor 522 is connected to an output of amplifier 518 

20 and to a second lead of resistor 516. 

An inverting input of an operational amplifier 
525 is connected to the first lead of resistor 513 and 
to a first lead of a variable resistor 526. A 
non-inverting input of amplifier 525 is connected to a 

25 first lead of each of resistors 527 , 528 and 529. A 

second lead of resistor 527 is connected to a node 530 
at a positive potential while a second lead of resistor 
528 is connected by way of a node 531 to a negative 
voltage source, A second lead of resistor 529 is 

30 connected to a second lead of resistor 526 and to an 

output of amplifier 525 at a node 592 which provides a 
square wave output simulating a modulated heart rate 
pulse. A first lead of a capacitor 532 is connected to 
node 592 while a second lead of capacitor 532 is 

35 connected by way of a node 593 to a first lead of a 
resistor 533, a second lead of which is connected to 



WO 86/07248 



PCT/US86/01193 



- 31 - 

ground* Node 593 provides an output port for a spike 
output simulating the R wave of an EKG. 

The source of positive potential for the 
portable calibrator 70 may be at a voltage between about 
5 plus 5 and about plus 18 volts. Similarly,, the negative 
voltage source for portable calibrator 70 may be at a 
potential of about minus 18 volts to about minus 5 
volts. 

Portable calibrator 70 provides test signal 

10 for the heart rate spectral analysis hardware which, 
although not of a truly calibrated nature, does allow 
one to evaluate whether or not the software and hardware 
is functional. Each of the output signals provided is a 
triangle wave which represents the respiration and a 

15 frequency modulated pulse train representing the heart 
rate. The modulation of the heart rate is provided at 
two frequencies which simulate a respiratory modulation 
and also a low frequency modulation. 

The basic circuit of calibrator 70 for 

20 providing each pulse train consists of an oscillator 
having one operational amplifier as typified by the 
respiratory frequency modulator. A charging capacitor 
505 and a variable resistor 507, provide an RC circuit 
which is charged by the output of the amplifier 500. It 

25 is also discharged by the amplifier 500 when the output 
of the amplifier 500 is low. Progressive cycles of the 
oscillator consist of charging and discharging the 
capacitor at the rate prescribed by the RC circuit. The 
reference level which determines whether or not one is 

30 discharging or charging is provided at the non-inverting 
input of the amplifier 500. 

Suppose, for example, that capacitor 505 
begins as being completely discharged, then the voltage 
at the inverting input for the operational amplifier 500 

35 is low. The output of the operational amplifier 500 is 
therefore high and this means that the input at the 



WO 86/07248 



PCT/US86/01193 



- 32 - 

non-inverting input is 2/3 the voltage between the 
negative voltage source V and the positive voltage 
source V+. Thus the capacitor 505 begins to charge. 
When the capacitor voltage exceeds the threshold at the 
5 non-inverting input of the operational amplifier 500/ 

the output of operational amplifier 500 changes sign and 
capacitor 505 begins to discharge. However, when the 
output of the amplifier 500 changes to the negative 
side, then the threshold voltage at the non-inverting 

10 input is changed and now. becomes only 1/3 the way from 
the negative voltage source to the positive voltage 
source. This means that the voltage on the charging 
capacitor 505 varies between 1/3 and 2/3 the difference 
between the negative and the positive voltage source. 

15 This determines the range of output on capacitor 505. 
The voltage at capacitor 505 is buffered by a 
non-inverting buffer 511 and this provides the 
respiratory signal at node 591, 

An identical oscillator is used to provide low 

20 frequency modulation. The difference in the two 

frequencies is obtained by adjusting the respective 
variable resistors, 505 and 517, which set the RC time 
constants. The outputs of these two modulators are fed 
by resistors 512 and 513 into the charging capacitor 514 

25 for the heart rate. 

The heart rate oscillator is similar in design 
and consists of variable resistor 526 and capacitor 532 
which charges and discharges in cycles with the range of 
voltages on the capacitor ranging between 1/3 the 

30 distance from the negative voltage source to the 

positive voltage source to 2/3 the voltage between the 
negative voltage source and the positive voltage 
source. Resistors 512 and 513, which connect the 
outputs of the low frequency and respiratory frequency 

35 modulators to the heart rate modulator , allow a small 

amount of current to flow into charging capacitor 514 of 
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the heart rate modulator. This alters the charging rate 
of capacitor 514 and thereby affects the rate at which 
the heart rate oscillator oscillates. For example , on a 
positive cycle of the respiratory frequency modulator/ 
5 the heart rate capacitor is charging more rapidly 
towards the plus side because more current is being 
supplied on the plus side of the cycle. Finally , the 
output of the heart rate modulator is sent through an RC 
filter comprising capacitor 532 and resistor 533 which 

10 converts the square wave output of the heart rate 

modulator into a spike output which may be sent to an R 
wave detector. Notice that the spike output includes 
both positive and negative spikes so that an R detector 
which depends on a high frequency filtering function may 

15 be discharging at twice the heart rate, inasmuch as it 
may trigger on both positive and negative spikes. 

As illustrated by a block diagram in Figs. 9A 
and 9B r a block diagram may be constructed for the main 
program (designated SYNCTS19) and for sub-routine 

20 modules (SYNC7s, GWINDOW3 , and FGRAPH8 ) . This block 
diagram may be used in order to better interpret a 
complete program for heart rate fluctuation spectral 
analysis useful on an IBM personal computer , as 
illustrated in Appendix B. Although programs are 

25 provided for a Hewlett-Packard and an IBM computer 

herein, the software and other aspects of the present 
invention may be readily modified for use with other 
mini- and micro-computers. 

In the program of Appendix B, is a routine for 

30 removing artifacts from a detected heart rate provided 
for by an electrocardiograph machine. This program 
computes histograms from the heart rate data in order to 
generate a tachometer waveform. The most common rate on 
the histogram is selected as the correct rate and other 

35 rates are interpreted in light of it. Specifically, in 
order to correct for a spurious extra trigger, where a 
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first and a second beat are close together while a third 
beat is spaced at an abnormally long interval/ the 
second beat is discarded if the first beat to second 
beat interval is less than a predetermined value. The 
5 resulting interval between the first and the third beats 
is divided by an integer in order to provide a more 
normal intrabeat interval. Where a trigger has been 
missed, so that a first and a second beat are separated 
by an interval which is approximately a multiple of a 

10 normal intrabeat interval , the intrabeat interval is 

divided by that multiple, most commonly two, in order to 
provide a more correct interval length. If the slewing 
rate of the heartbeat samples is outside of an 
acceptable range of slewing rates determined as a 

15 function of a mean variance, and the problem cannot be 
identified as a missed trigger or as a spurious extra 
trigger, or if the three previous intervals have been 
corrected, a determined mean interval, against which all 
other intervals are judged, is substituted for the 

20 inappropriate interval. 

The slew rate is calculated on a moving 
average of the heart rate waveform and corrects for 
triggers that fall within the parameters of 0.05 Hz (3 
beats/min.) per beat and five times the maximum slew. 

25 This artifact-correcting routine never slews more than 
10 percent of the heart rate waveform. 

Within the software of Appendix A is a graphic 
routine for trending heart rate fluctuation spectral 
data. The parameters of LFP, RFP, LFP/RPP ratio and 

30 heart rate are plotted on a graph over time to show 

trends in the four parameters. These trends may then be 
studied in order to examine the effects of various 
clinical interventions. Values for the parameters heart 
rate, LFP/RFP ratio, LFP and RFP are stored and may be 

35 called up at any point in time through a graphing 

routine in order to provide a graphic depiction of the 
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course of a patient's condition. This sort of graphic 
depiction is illustrated for a stable patient in Pig. 10 
and for an unstable patient in Fig, 11. 

Also present in the program of Appendix B, a 
5 routine is provided for the segmentation of data and 
subsequent reanalysis. In this routine , data from the 
analog to digital converter 260 is collected 
continuously into a buffer and is dumped to a disk in 
blocks of l r 024 numbers (2,048 bytes equals 1,024 words 

10 and each block is referred to as a record or EPOCH) . 
The time of heartbeat occurrence as measured by the 
signal provided by outputs OUT1 and OUT2 of timer 220 
are collected continuously into two buffers (hb buffer 1 
and hb buffer 2). These times are dumped to the disk in 

15 blocks of 1,024 pairs of numbers* (1,024 from each buffer 
which equals 2/048 bytes or 1,024 words each). Because 
the heart rate -is less than the sample rate of A/D 
converter 260 as required by signal processing, there 
are fewer heartbeat disk dumps. 

20 In order to properly analyze data, the A/D and 

heartbeat data must correspond to the same time interval 
for the purpose of doing correlations. The 
correspondence may be determined from (1) the record 
number in a A/D file and (2) the absolute of the times 

25 stored in the heartbeat file (time differences used for 
intrabeat intervals). The instantaneous heart rate 
signal is generated backwards in time from the heartbeat 
corresponding to the last A/D sample in the record of 
interest. This means that if the heart rate signal is 

30 analyzed on a frequency scale not corresponding to the 

respiration data (e.g. respiration sample at 16 Hz but a 
heart rate analysis at 0 to 4 Hz) then the heart rate 
waveform extends backwards in time beyond the beginning 
of the present A/D record. This means that the heart 

35 rate waveform overlaps the heart rate waveform 
corresponding to the previous A/D records. 
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Overlapping permits lower frequency analysis 
than would be possible if only data corresponding to the 
present record were used {as in the prototype 
apparatus). Also, overlapping leads to the smoothing of 
5 parameters and to the subsequent reduction of 

fluctuating artifacts. In addition, it becomes less 
critical at what point analysis begins. 

A calibration program providing a software 
driven calibrator, which may provide more realistic 

10 spectral data than the portable calibrator of Fig. 8 f is 
contained within the program of Appendix A for a 
Hewlett-Packard micro-computer. Appendix C is a program 
which, although not tested, is believed to provide the 
same sort of software-driven calibration for an IBM 

15 personal computer through the data acquisition system of 
Figs. 4 through 7. 

In general, outputs OUT0 and OUT1 of timer 220 
in Fig. 5 generate a time base used via interrupt 
request line IRQ4 to clock data from a buffer ^to D/A 

20 converter 300. This buffer contains a respiratory 
waveform which may be a sign wave or any selected 
waveform as obtained by changing the contents of the 
buffer. Output 0UT2 of timer 220 generates a heartbeat 
pulse as its output. In order to work properly, this 

25 pulse must be returned to the ECG trigger through node 
400 or directly to interrupt request line IHQ3. If the 
latter course is chosen, however, node 491 must be 
disconnected from the output of Schmitt trigger 416. By 
returning the pulse to the ECG trigger, the computer is 

30 informed that the timer is through counting the present 
RR interval and needs a new interval to be loaded into a 
timer register of timer 220. 

Through the use of the apparatus according to 
the present invention, a display of instantaneous heart 

35 rate as provided by an electrocardiograph machine, and 
as illustrated in Fig. 12, may be converted into an 
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instantaneous heart rate fluctuation spectrum as 
illustrated in Fig, 14. A typical spectrum for a stable 
patient is illustrated in Pig. 14 while a typical 
spectrum for an unstable patient is illustrated in Fig. 
5 15. 

Example I and Example II relate respectively 
to diagnosis and to treatment employing the present 
invention. 

Parts suitable for use in construction of the 
10 apparatus as illustrated in Figs. 4 through 9 may 

include those as listed in Tables I, II, III and IV. 



15 



20 



25 



30 



35 
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TABLE I 



Element No. 



Part No. 



Manufacturer, Location 



100, 110, 120 



74HC244 National Semiconductor 

Santa Clara, California 



10 



130 



140, 151, 158 



74HC138 National Semiconductor 

Santa Clara, California 

74HC30 National Semiconductor 

Santa Clara, California 



15 



152, 153, 154 

155, 156, 157 

159, 160, 161 

172, 265, 266 



74HC04 



National Semiconductor 
Santa Clara, California 



20 



171, 173, 185 
264 



74HC00 



National Semiconductor 
Santa Clara, California 



200 



8255A-5 Intel Corporation 

Santa Clara, California 



25 



220 



8253-5 



Intel Corporation 
Santa Clara, California 



224 



30 



240 



74HC393 National Semiconductor 

Santa Clara, California 



35 



260 



ADC0808 



National Semiconductor 
Santa Clara, California 
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15 



20 



25 



268, 303, 312 

401, 406, 412 

500, 511, 515 

518, 525 



LM324AN National Semiconductor 

Santa Clara, California 



280 



8286 



Intel Corporation 
Santa Clara, California 



10 



300 



DAC0830 National Semiconductor 

Santa Clara, California 



416 



74HC14 



National Semiconductor 
Santa Clara, California 



30 



35 
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TABLE II 
Diodes 

Element Part No. 



407, 415 IN4148 
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TABLE III 



Resistors 



Element No. 



Value (in ohms) 



403i, 410 
269 



2.2k 
5k 



10 



270, 271, 409 
403h 
403g 
403f 



10k 
15k 
27k 
56k 



15 



20 



313 

309, 310, 501, 

502, 503, 520, 

521, 522, 527, 

528, 529, 533, 
403e 



82k 

100k (variable) 



403d, 410d 
403c, 410e 



220k 
560k 



25 



508, 516, 526, 
403b, 410b 



lM(variable) 



30 



512, 513, 
403a, 410a 



2.2M 



35 
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TABLE IV 
Capacitors 

Element No. Value (in microfarads) 

5 

405 2.2 
404, 505, 517 10 
10 532 0.1 

514 1 



15 EXAMPLE 1 

Heart rate spectral analysis was applied to 
the study of congestive heart failure in infants and 
children. Congestive heart failure is characterized by 
a marked alteration in cardiovascular regulation. 

20 However , many cardiovascular functions which are - 

normally monitored in cardiac intensive care units (such 
as: mean heart rate; arterial blood pressure; arterial 
blood gases; left arterial pressure and right arterial 
pressure; right atrial, left atrial and pulmonary artery 

25 oxygen saturations; the peripheral pulses; peripheral 

perfusion; and cardiac output) may not clearly indicate 
a critically unstable cardiovascular condition. The 
usually-monitored cardiovascular function parameters may 
be within a normal range immediately before a major 

30 cardiovascular crisis, such as hypotension or cardiac 

arrest, inasmuch as the cardiovascular regulatory system 
maintains these parameters within a normal range up to 
the point of system failure. 

Twenty-nine infants and children were studied 

35 in a cardiac intensive unit. Of the twenty-nine 

patients, twenty-six have undergone a cardiac surgical 
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procedure. The patients were studied for a minimum of 
three hours and a maximum of twenty-seven hours , with a 
mean study time of eight hours. EKG for cases were 
recorded and analyzed continuously in real time during 
5 the study time. 

Data for a particular patient was analyzed 
only if the patient was in sinus rhythym. The patient's 
clinical course during the period of study was reviewed 
and, in particular , major events such as cardiac arrest, 

10 hemorrhage and profound hypotension were correlated with 
spectral analysis data. Administration of medication 
and the mode of ventilation were noted. 

Real time heart rate spectral analysis was 
performed on a dedicated personal computer using a 6809E 

15 Motorola Microprocessor-Based System. A data 

acquisition system interfaced the computer with a 
patient monitor, available from Hewlett-Packard, Palo 
Alto, California, as Model No. 78341. 

The heart rate power spectrum was calculated 

20 in continuous 256 second data epochs. A QRS 

synchronization pulse from the patient monitor was used 
to determine an RR interval sequence. An instantaneous 
heart rate signal was computed from RR interval sequence 
and the magnitude of the signal was set to the 

25 reciprocal of the current interbeat interval. The 

instantaneous heart rate signal was sampled at 4 Hz and 
the mean heart rate was substracted from the resulting 
one thousand twenty-four point time series. A power 
spectrum was computed by squaring the absolute value of 

30 a Fast Fourier Transform of the one thousand twenty-four 
point time series. Values for low frequency power (LFP) 
were computed by integrating the spectrum of between 
0.04 and 0.1 Hz. Respiratory frequency power (RFP) was 
computed by integrating the heart rate power spectrum 

35 over a 0.2 Hz-wide band centered at the mean respiratory 
frequency. 
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Hard copies of the heart rate time series and 
power spectrum were printed for each 256 second 
epochs. Trend graphics for the LFP, the RFP, LFP/RFP 
ratio, mean heart rate and respiratory rate (hereinafter 
5 referred to as the study parameters) were constructed by 
manually entering data in data files and analyzing the 
entered data by means of a computer. 

Mean values for the study parameters were 
calculated for each period of study. The Mann-Whitney 

10 Rank Sum Test was used to determine statistically 
significant changes in the study parameters in 
individual patients and to determine differences among 
groups of patients. When patients were segregated into 
more than two groups , the Kruskal-Wallis Test./ multiple 

15 comparison test, and Tukey's HSD were employed to 

determine statistical significance. P values of less 
than 0.05 were considered significant.. 

It was found that during each three to 
twenty-four hour period of study the study parameters 

20 for a given patient , the LFP/ the RFP and the LFP/RFP 
ratio (hereinafter referred to as the spectral 
parameters) remain fairly stable. 

Based upon the results of this study, the 
patients were retrospectively divided into three 

25' groups. Group I included seventeen stable patients 

whose median age was one month. The patients in Group I 
were without major post-operative complications and did 
not need prolonged inotropic support. The eight 
patients in Group II suffered cardiac arrest and died. 

30 The median age for the members of Group II was one 

month. In Group III, there was a total of four patients 
each of whom was critically ill at the time of the study 
but later recovered. Median age of the members of Group 
III was one month. Of the four members of Group III, 

35 one required re-operation, one had intermittent 

hypotensive episodes, and two had cardiac arrests from 



WO 86/07248 



PCT/US86/01193 



t 

5 



10 



15 



20 



25 



30 



- 45 - 

which they were successfully resuscitated. 

In order to separate all twenty-nine patients 
into a group of stable patients (Group A) and a group of 
critical patients (Group B), data from each patient in 
Group III was divided into the data collected during the 
stable period (which applied to three patients) and the 
data collected during the preceding critical period 
(which applied to four patients). When handled in this 
way, Group A included data for twenty patients and Group 
B included data for twelve patients. Typical heartrate 
fluctuation power spectra for Group A and B are 
respectively illustrated in Pigs. 16 and 17. 

In addition, studies were performed on three 
patients who had isolated coarctation of the aorta at 
three points in time: upon admission for congestive 
heart failure; during treatment; during post-operative 
period; and prior to discharge from an intensive care 
unit. An attempt was made to identify changes in 
cardiovascular regulatory function of each of these 
stages. 

Patient profiles for Groups I, II and III are 
respectively provided in Tables V, VI and VII. These 
profiles include age, diagnosis and operation. 



TABLE V 



PATIENT PROFILE; 
AGE NO. 



STABLE POST-OP N=17 
DIAGNOSIS (NO. ) 



OPERATION 



<30 DAYS 



TGA,IVS 

TGA,VSD,PS 

HLHS 

SV 

SEV. COAO 



(3) ARTERIAL SWITCH 

( 1 ) L-BTS 

(1) STAGE 1 REPAIR 

(1) L-BTS 

(3) SUBCL.FLAP ANGIO, 
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1-12 MO. 


5 




I J- ) 


ARfRRT AI. SWITCH 










TGArVSD,PS 


(1) 


BTS 










MULT • VSD 1 S 


(1) 


VSD PATCH REPAIR 










SUrRA'v • irb 




PA PATCH PTi AST Y 




5 








(i) 


VSD REPAIR, ANOM. 














B RESECTion 






1-10 YRS . 


2 


PS 


(i) 


PULM. VALVOTOMY 










TOP 


(i) 


TOF REPAIR 




10 














>10 YRS. 


1 


AR,MR 


AVR,MVR 





15 



TABLE VI 



PATIENT PROFILE; CRITICAL, DIED N=8 



AGE 



NO. DIAGNOSIS 



(NO.) OPERATION 



20 



<30 DAYS 



-4 



HLHS 

SV W/IAA 



(3) NORWOOD PROCEDURE 
01) GORE-TEX GRAFT 



25 



1-12 MO. 



HLHS 

DORV,TAPVC, 

CCAVC 

HLHS 



(1) Fontan operation 
(1) TAPVC REPAIR, SYS. 

PULM. SHUNT 
( 1 ) NON-OPERAT I VE 



30 



6 1/2 YRS. 



T OF S/P REPAIR W/ 
CHRONIC SEV. 
CARDIOMYOPATHY, 
S/P ARREST 



NON-OPERATIVE 



35 
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TABLE VII 

PATIENT PROFILE: CRITICAL, RECOVERED N=4 

5 AGE NO. DIAGNOSIS (NO, ) OPERATION m 

<30 DAYS 3 HLHS,COAO (1) NORWOOD PROCEDURE 

HLHS (2) NORWOOD PROCEDURE 



10 14 YRS. 1 ACUTE MYOCARDITIS , NON-OPERATIVE 

S/P ARREST 

In Tables V, VI and VII: TGA is Transposition 
of the Great Arteries; IVS is Ventricular Septal Defect; 

15 PS is Pulmonic Stenosis; HLHS is Hypoplastic Left Heart 
Syndrome; SV is Single Ventricle; SEV. is severe; COAO 
is Coarctation of the Aorta; MULT is multiple; VSD is 
Ventricular Septal Defect; Supra-V. is Supravalulvar ; 
DCRV is Double Chamber Right Ventricle; TOF is Tetralogy 

20 of Fallot; AR is Aortic Regurgitation; MR is Mitral 

Regurgitation; W/IAA is with Interrupted Aortic Arch; 
DORV is Double Outlet Right Ventricle; TAPVC is Total 
Anomalous Pulmonary Venous Connections; CCAVC is 
Complete Common Atrial Ventricular Canal; S/P is Status 

25 Post; L is Left; BTS is Blailock Taussig Shunt; PA is 
Pulmonary Artery; ANOM. is Anomalous; B is muscle 
Bundle; PULM is Pulmonary; and SYS is Systemic, 

Statistically significant differences were 
observed in the heart rates spectral parameters between 

30 the groups of patients as well as among the individual 
patients. However/ the mean heart rate alone did not 
distinguish stable from critically ill patients. Both 
the LFP and the LFP/RFP ratio discriminated between the 
Group A (stable) patients and the Group B (critical) 

35 patients. The LFP/RFP ratio grew out of a statistically 
significant (p less than symbol 0.00001) discrimination 
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between stable and critical patients. Table VIII 
presents means of study parameters. 

TABLE VIII 

m 

MEANS OP STUDY PARAMETERS 

GROUP A, STABLE 



10 



15 



PARAMETER 



STD. ERROR 



(BEATS/MIN.) 


MEAN 


STD. DEV. 




OP 


MEAN 


LOWER 


LFP 


1.77 


3.35 


0. 


75 


-.37 


3.91 


REP 


0.28 


0.70 


0. 


16 


-.17 


0.72 


LPP/RPP RATIO 


8.77 


4.86 


1. 


09 


8.76 


8.79 


HEART RATE 


139 


19.60 


4. 


38 


139 


139 



99% CONFIDENCE 
UPPER 



20 GROUP B f CRITICAL 

STD. ERROR 99% CONFIDENCE 





PARAMETER 


MEAN 


STD. DEV. 


OF MEAN 




LOWER 


25 


LFP 


.05 


.03 


.01 


.02 


.07 




RFP 


.10 


.09 


.03 


.01 


.18 




LPP/RPP RATIO 


.83 


.51 


.15 


.83 


.83 




HEART RATE 


142 


24.32 


7.02 


142 


142 



The discriminate value for the LFP/RFP ratio 
was two. In Group A, the range of LFP/RFP ratios was 3 
to 22 (arithmetic mean 8.77). The range of RFPs was 
35 0.01 to 3.13 (arithmetic mean 0.28) and the range of 

LFPs was 0.09 to 13.88 (arithmetic mean 1.77). In Group 
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B, the range of LFP/RFP ratios was 0.17 to 1.9 
(arithmetic mean 0.83) f the ratio of RFPs was 0.02 to 
0.32 (arithmetic mean 0.1) , and the range of LFPs was 
0.01 to 0.1 (arithmetic mean 0.5) 
5 Although the mean value of the LFP/RFP ratio 

was greater than two for Group 1/ the ratio for the 
stable patients fell below two for brief periods. That 
which distinguishes the stable from the critical 
patients is the sustained value for greater than or 
10 about one hour of the LFP/RFP ratio for the critical 
group. 

The results are graphically depicted in Figs. 
19, 17 and 18. In Figs. 16 and 17/ each heavy dot A 
represents a geometric mean, each light line B indicates 

15 the standard error of the geometric mean and each heavy 
line C represents the standard deviation of the 
geometric mean. In Fig. 18, each heavy dot A represents 
an arithmetic mean, each set of slashes Bl and B2 
represents the standard error of the arithmetic mean and 

20 each set of slashes CI and C2 represents the standard 
deviation of the arithemetic mean. 

The significance of heart rate spectral 
analysis for diagnosis of cardiovascular stress and the 
prediction of fatality is highlighted by the fact that 

25 patients with a low LFP/RFP ratio underwent a cardiac 
arrest even in the presence of otherwise normal vital 
signs. No patient with a LFP/RFP ratio greater than two 
experienced a cardiac arrest. 

Infusion of pressors, alone or in combination 

30 with vasodilators, did not induce a low LFP/RFP ratio. 

Four patients in Group III had LFP/RFP ratios 
less than two during their critical periods. For the 
three of these four patients who were restudied during 
their recovery periods, all three had LFP/RFP ratios 

35 greater than two. 

The mean LFP for Group B [0.05 (Beats per 
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minute) 2 ] was less than the mean LFP for Group A [1.77 
beats per minute) 2 ] r p <0.0001. There was no 
significant difference between the mean RFP between the 
groups • 

5 The initial LPP/RFP ratios for the patients 

with isolated coarctation of the aorta ranged up to 
10,000. The LFP/RFP ratios observed for this group 
immediately after an operation to correct the condition 
were within the range for Group A patients. Two 

10 patients had LFP/RFP ratios greater than 100 before 

discharge from the intensive care unit. These ratios 
were correlated with mild to moderate congestive heart 
failure. One of these patients died suddenly at 
approximately 2-1/2 months after the operation. The 

15 other two patients remained alive and well. 

Although the LFP/RFP ratio provided the 
sharpest discrimination between stable and critical 
patients in these studies, the LFP alone discriminated 
between Groups A and B, p <0.0001. Neither respiratory 

20 frequency peak power nor mean heart rate distinguished 
between Groups A and B. On the other hand, LFP/RFP 
ratios and LFP levels low levels sustained for greater 
than or about one hour correlate with the course of the 
conditions of patients who experienced cardiac arrest or 

25 severe hypotensive episodes but later recovered. 

Although stable patients experienced transient 
depression of levels of LFP and of the LFP/RFP ratio, 
depression of these factors for about an hour or more 
never failed to predict a critical status. 

30 No significant difference was observed between 

freely ventilating patients and mechanically ventilated 
patients. Eighteen out the twenty patients in Group A 
were mechanically ventilated and all twelve of the Group 
B patients were mechanically ventilated. 

35, All patients in Group B received inotropic 

support while more than half of the patients in the 
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Group A received at least some inotropic support. The 
cardiac diagnoses of all of the patients in Group B and 
for some of the patients in Group A were known to be 
associated with high mortality. All of the patients in 
5 Group B underwent deep hypothermic circulatory arrest 
during their operations. Of the twenty patients in 
Group A, nine had extra cardiac surgery (i.e. not 
involving cardiopulmonary bypass or deep hypothermic 
circulatory arrest). Three of the patients in Group II 

10 did not undergo operations. Therefore , it is not 
believed that differences in treatment or disease 
specific pathology alone explained the low values LFP 
and the low LFP/RFP ratios in Group B patients but that 
the low values actually reflect a vulnerable circulatory 

15 state. 

It has also been observed that the value of 
LFP and of the LFP/RFP ratio increase in moderate to 
severe heart failure but decreased to subnormal values 
in end stage myocardial failure. Thus, these two 

20 spectral parameters may indicate cardiovascular 

regulatory effectiveness (cardiovascular regulatory 
reserve) during the stress of heart failure. 

This analysis is consistent with previous 
physiological studies which indicated that low frequency 

25 heart fluctuations may be mediated by both the 

beta-sympathetic and parasympathetic mechanisms while 
respiratory fluctuations are exclusively mediated by 
parasympathetic mechanisms. It is also consistent with 
this analysis that LFP has been observed to increase 

30 during conditions which elicit enhanced sympathetic 
activity, such as acute hypoxia, postural changes, 
hemmorhage and aortic constriction. In this light, the 
LFP/RFP ratio may represent a measure of the balance 
between beta adrenergic and parasympathetic modulation 

35 of cardiac function. 

Thus, the increase in LFP and in the LFP/RFP 
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ratio for patients with isolated coarctation of the 
aorta and moderate heart failure may result from an * 
increased activity from the sympathetic mechanism and a 
decreased activity of the parasympathetic mechanism. On ^ 
5 the other hand, the decreased level of LPP and of the 
LPP/RPP ratio found in critical patients may be due to 
non-responsiveness of the sympathetic mechanism. 
Sympathetic non-responsiveness may be. due to myocardial 
catecholamaine depletion alone or in combination with 
10 the observed down regulation of beta receptors from 
cardiac tissue in the end stage of heart failure. 

EXAMPLE 2 

In patients undergoing operations, shifts in 

15 body fluid disposition during surgery may lead to 

changes in intervascular volume (i.e. a shift of fluid 
out of a circulatory tree of blood vessels). 
Accordingly, the availability of the method of 
diagnosing cardiovascular stress as described in Example 

20 1 may be used to choose among various protocols for 

treatment or to justify a radical change in medical or 
surgical treatment. 

For example, by monitoring a patient with the 
real time heart rate frequency spectral monitor 

25 according to the present invention during administration 
of anesthesia, an anesthesiologist may non-invasively 
monitor intravascular volume status. Upon observing an 
increase in the LPP or in the LFP/RFP ratio, the 
anesthesiologist may increase the amount of fluids * 

30 administered by way of intravenous injection or may take 

steps to reverse effects of a particular anesthetic. * 

It is a particular advantage of the apparatus 
according to the present invention that heart rate 
fluctuation spectral analysis may be done in real 

35 time. This capability permits correlation of treatment 
administered with changes in LPP or LPP/RPP ratios. 
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Although the present invention has been 
described in terms of preferred embodiments, it is 
understood that modif ications, variations and 
improvements will occur to those skilled in the art, 
5 For example , it will occur to those skilled in the art 
to employ the present invention for monitoring 
cardiovascular instability in the following settings in 
which significant circulatory stress are commonly 
observed; Labor and Delivery Room; Operating Room; 

10 Cardiac Catheterization Laboratory; Neonatal, Pediatric/ 
Adult Medical, Adult Surgical, Cardiothoracic and 
Neurosurgical Intensive Care Units; Coronary Care Units; 
Burn Units; and Emergency Rooms. 

The present invention may also be used for 

15 monitoring cardiovascular instability in the following 
patients in which adjustments in cardiovascular 
regulation may provide a central key to understanding 
the efficiency and efficacy of treatment. Ambulatory 
patients with known heart disease in which sudden 

20 cardiac death is a common association, one example of 
which would be a patient with a congestive 
cardiomyopathy who is being treated with vasodialator 
drugs and for whom the LFP/RFP ratio has changed from a 
normal baseline level to decreased levels may then 

25 'subsequently be either admitted to the hospital for 

adjustment of medications and/or observed and monitored 
in the physician's office while his vasodialator drug 
dose is increased. A patient with renal disease (e.g. 
one who requires dialysis) may exhibit a marked increase 

30 in LFP and LFP/RFP ratio secondary to the onset of 

incipient moderate congestive heart failure would thus 
be treated by dialysis to relieve a congested 
circulatory state; a patient with moderate to severe 
pulmonary disease resulting in hypoxemia and/or 

35 hypercarbia who requires bronchodialator and/or 

supplementary oxygen and/or mechanical ventilation (e.g. 
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a .patient who exhibits a marked decrease in LFP/RFP 
ratio secondary to myocardial failure due to a profound 
imbalance between myocardial ventricular output and 
oxygen demand)/ may be treated by adjustments in 
5 bronchodialator drugs, diuretics, and/or ventilator 
adjustments. 

A premature infant of very low birth weight 
known to be at risk for intraventricular hemorrhage may, 
for example, develop a slow intracranial bleed 

10 associated with an abrupt increase in LFP, which may 
alert physicians prior to a brisk bleed thus allowing 
institution of appropriate changes in medical management 
to limit substantially known risk factors that may 
predispose to such an event, or may permit recognition 

15 of the presence of unsuspected circumstances that 

contribute to the bleed. In neurologic disease, such as 
one in which a patient has sustained a major 
intracerebral event (e.g. neurosurgical evacuation of a 
space occupying lesion such as a tumor or blood), a 

20 patient may, for example, exhibit a markedly attenuated 
LFP/RFP ratio, secondary to massively increased 
parasympathetic activity which would markedly increase 
RFP, at the expense of LFP, but which may or may not be 
associated with signs of increased intracranial 

25 pressure, and which may be treated by, for example, 
hyperventilation-, rapid diuresis, or burr hole 
placement . 

A patient with severe systemic infection may 
exhibit shock secondary to the infection process may, 

30 for example, exhibit an elevated LFP/RFP ratio which may 
then be subsequently used by the physician in managing 
the shock state by means of pressor agents and infusion 
of significant volumes of fluid, thus providing the 
physician an indication of how effectively he is 

35 treating the shocked state above and beyond the 

traditional measurements such as systemic blood pressure 
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and cardiac output. A patient with hematologic disease 
associated with anemia , such as Sickle Cell Anemia , 
exhibits an oscillation in capillary blood flow when 
severly anemic at the frequency associated with LFP and 
5 may exhibit large values for LFP, and for the LFP/RFP 
ratio may, for example, be treated by blood transfusion 
which may lead to an expected decrease in LFP, LFP/RFP 
ratio, and* thus enable the physician to monitor by means 
of heart rate spectral analysis appropriate timing for 

10 transfusion therapy. A fetus prior to delivery, may for 
example, exhibit a marked attenuation in LFP associated 
with severe fetal distress, and may thus alert the 
physician to perform an emergency Caesarean section. 

One skilled in the art understands that the 

15 calibrators according to the present invention may be 
adjusted to simulate disease states as well as normal 
conditions. It is also understood that the present 
invention is not limited to use with patients whose 
primary disease is of the heart but that modifications 

20 may be made for use with such patients. 

Lastly, it is clear to one skilled in the art 
that durations and ranges for levels of LFP and LFP/RFP 
ratios are conservatively stated herein and that 
variations from these ranges and durations are 

25 contemplated within the scope of the equivalents of the 
present invention. 

Therefore, it is intended that the methods and 
apparatus according to the present invention to be given 
the broadest scope allowable for the invention as 

30 claimed. 



35 
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APPENDIX A 



5 10 Summary 3 : 1 

20 IThis program takes data already collected and 

allows the data 
30 !to be outputted to a printer 

40 12 MAY 1985 

10 50 ! 

60 COM /Trends/ Mean_hr_t ( 60 ) , Lf a_t ( 60 ) ,Rf a_ 

t ( 60 ) , Ratio J: ( 60 ) ,T_ptr ,Time_nowl ,Mean_resp_ 
t(60) ,Trend_dp 
70 COM /Multi_param/ Start_chan,Stop_chan,Pacing_' 
15 bits,Pacing_rate,Num_pts,Nu 

m_xf er , Num_xf er_lef t ,Name_len, Scr_f ile$ [ 28 ] , Scr_ 
file2$[28] 
80 COM /Pressure/ 

Topi ,Top2 , Top3 , Top4 , Botl , Bot 2 , Bo 1 3 , Bot 4 
20 90 COM /Editor/ Edit_msg$[80] 

100 COM /Subject/ Sub_name$C25],Hos_num$[15] /Id_ 
age$ [ 10 ] , Id_wt$ [ 10 ] , Id_ht$ [ 10 

] , Diag$ [ 30 ] ,Opera$ [ 45 ] ,Halt_pg r In_f ile$ [ 6 ] 
110 COM /Io_chart/ Io_time$(8) [10] , Iv_intake(8) ,Pluid_ 
25 in(8),In_tot(8J,Urine(8 

) , Chest ( 8 ) ,Out_tot ( 8 ) ,Net ( 8 ) , Io_ptr 
120 COM /Lab_chart/ Lab_ 

time$(8) [10],Na(8) ,K1(8) ,C1(8) f Hco3(8) ,Ca(8) ,Hct(8) ,G 
luc(8),Dig(8) ,Pt(8) ,Ptt(8) f Creat(8) ,Bun( 8 ) ,Lab_ptr 
30 130 COM /Vent_chart/ Vent_ 

time$(8) [15] /RatetS) ,Fio2(8) r Pp(8) ,Peep(8) ,Tv(8) , 
Ie_ratio$(8) [Sl/AirpO) r Ph(8),Po2(8) , 
Pco2(8) ,Bgo3(8) ,Be{ 8 ) ,Vent_ptr 
140 COM /Pres_chart/ Pres_time$ ( 20 ) [ 15 ] , Ao_s ( 20 ) , Ao_ 
35 d(20) ,Ao_m(20) ,Pa_s(20) ,P 

a d(20),Pa m(20) f La m(20),Ra m(20),Pres_ 



WO 86/07248 



PCT/US86/01193 



- 57 - 

ptr,Pres_in 
150 COM /Heart_index/ Heart_ 

time$ ( 15 ) [ 15 ] ,Ci ( 15 ) , Pvri ( 15 ) , Svr i ( 15 ) , Hear t_ptr 
160 COM /Drugs/ Drug_time$ ( 40 ) t 20 ] ,Drug_ 
5 name$(40) [ 40 ] ,Drug_dos$ ( 40) [20] ,Drug_ 

ptr 

170 DIM Msg_buffer$[6400] BUFFER 

180 DIM Pres_p(20) ,Io_p(8) ,Lab_p(8) ,Vent_p(8) ,Heart_ 
p(5) ,Drug_p(40) 
0 190 INPUT "enter date on which data was collected 
(ddmmyy) e.g. 22AP85" ,In_f ile$ 
200 Diskl$=":HP8290X, 700,1" 

210 INPUT "is the trend file named 'trnd'(l) or 'temp_ 
trend' (2)?",Ans 
5 220 IF Ans=2 THEN 

230 ASSIGN @Trend_file TO "temp_ 

trend" &Diskl$; FORMAT OFF 
240 ASSIGN ©Messages TO "messglog"&Diskl$ ; FORMAT 

OFF 

0 250 ASSIGN @Hemo_data TO "hemo_ 

data" &Diskl$ ; FORMAT OFF 
260 ASSIGN @Io_data TO "io_data"&Diskl$ ; FORMAT 

OFF 

270 ASSIGN @Lab_data TO "lab_data"SDiskl$; FORMAT 

5 OFF 

280 ASSIGN. @vent_data TO "vent_ 

data " &Diskl$ ; FORMAT OFF 
290 ASSIGN @Co_data TO "co_data"SDiskl$ ; FORMAT 

OFF 

0 300 ASSIGN @Drug_data TO "drug_ 

data "&Diskl$; FORMAT OFF 
310 ASSIGN @Sub_data TO "sub_data" &Diskl$ ; FORMAT 

OFF 

320 ON END @Trend_file GOTO Start 

5 330 FOR 1=0 TO 55 

340 ENTER QTrend file;Trans t(I),Mean hr 
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t ( I ) , Lf a_t ( I ) , Rf a_t ( I ) , Ra t io 
_t ( I ) , Mean_r esp_t ( I ) 
350 ' NEXT I 

360 T_pfcr=I 
5 370 Num_xf er=T_ptr 

380 ELSE 

390 ASSIGN §Trend_file TO "trnd"&In_ 

file$&Diskl$ ; FORMAT OFF 
400 ASSIGN QMessages TO "msgs"&In_ 

10 file$&Diskl$; FORMAT OFF 

410 ASSIGN @Hemo_data TO "hemo"$In_ 

file$&Diskl$; FORMAT OFF 

420 ASSIGN §Io_data TO "io "&In_ 

file$&Diskl$; FORMAT OFF 
15 430 ASSIGN @Lab_data TO "lab_"&In_ 

file$&Diskl$; FORMAT OFF 
440 ASSIGN @Vent_data TO "venf'&Ii^ 

file$&Diskl$; FORMAT OFF 

450 ASSIGN @Co_data TO "co "&In_ 

20 file$&Diskl$;FORMAT OFF 

460 ASSIGN @Drug_data TO "drug"&In_ 

file$&Diskl$; FORMAT OFF 
470 ASSIGN §Sub_data TO "sub_"&In_ 

file$&Diskl$ ; FORMAT OFF 
25 480 ENTER @Trend_f ile ;Mean_hr_t ( * ) ,Lf a_t ( * ) ,Rf a_ 

t ( * ) , Ratio_t ( * ) ,Mean_r esp 
_t(*) ,Trans_time(*) ,T_ptr 
490 Num_xfer=T_ptr 
500 END IF 
30 510 ASSIGN @Trend_file TO * 

520 ON END @Hemo_data GOTO Hemol 
530 FOR 1=0 TO 20 

540 ENTER @Hemo_data; Pres_time$ ( I ) , Ao_s ( I ) ,Ao_ 

d ( I ) , Ao_m ( I ) , Pa_s ( I ) , Pa_d ( I 
35 ) ,Pa_m(I) ,La_m(I) ,Ra_m(I) ,Pres_p(I) 

550 NEXT I 
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560 Hemol: ASSIGN §Hemo_data TO * 
570 Pres_ptr=I-l 
580 ON END §Io_data GOTO Iol 
590 FOR 1=0 TO 8 
5 600 ENTER §Io_data; Io_tirae$ ( I) , Iv_intake( I ) ,Fluid_ 

in(I),In_tot(I) ,Urine(I 

) ,Chest(I) ,Out_tot(I) ,Net(I) , Io_p(I) 

610 NEXT I 

620 Iol: ASSIGN @Io_data TO * 
10 630 Io_ptr=I-l 

640 ON END §Lab_data GOTO Labi 

650 FOR 1=0 TO 8 

660 ENTER §Lab_data;Lab_ 

time$(I) ,Na(I) ,K1(I),C1(I) ,Hco3(I) ,Ca(I) ,Hct(i) ,G 
15 luc(I) ,Dig(I) ,Pt(I) ,Ptt(I) , Create I) ,Bun(I) ,Lab_p(I) 

670 NEXT I 

680 Labi: ASSIGN §Lab_data TO * 
690 Lab_ptr=I-l 

700 ON END @Vent_data GOTO Ventl 
20 710 FOR 1=0 TO 8 

720 ENTER @Vent_data; Vent_ 

time$(I) ,Rate(I),Fio2(I) ,Pp(I) ,Peep(I) ,Tv(I) , 
Ie_ratio$(I) ,Airp(I) ,Ph(I) ,Po2(I) , 
Pco2(I) ,Bgo3(I) ,Be(I) ,Vent_p(I) 
25 730 NEXT I 

740 Ventl: ASSIGN §Vent_data TO * 
750 Vent_ptr=I-l 
760 ON END @Co_data GOTO Col 
770 FOR 1=0 TO 5 
30 780 ENTER @Co_data;Heart_ 

time$ ( I ) , Ci ( I ) , Pvri ( I) , Svri ( I ) ,Hear t_p( I ) 
790 NEXT I 

800 Col: ASSIGN @Co_data TO * 
810 Heart_ptr=I-l 
35 820 ON END @Drug_data GOTO Drugl 
830 FOR 1=0 TO 40 
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840 ENTER @Drug_data;Drug_time${ I) ,Drug_ 

name$ ( I ) ,Drug_dos$ { I) , Drug_p( I ) 
850 NEXT I 

860 Drugl: ASSIGN @Drug_data TO * 
5 870 Drug_ptr=I-l 
880 1 
890 ! 
900 ! 
910 Pacing_rate=250 
10 920 Time_nowl=TIMEDATE MOD 86400 
930 Out_graph=l 

{....graphics 
dump 

940 Trend_dp=2 
15 950 CALL Trend_graph 

960 CALL Graph_dump(Out_graph) 

970 Trend_dp=l 

980 CALL Trend_graph 

990 CALL Graph_dump{Out_graph) 
20 1000 ! 

1010 Chart_dump: ! 

1020 ENTER @Sub_data ; Sub_name$ , Hos_num$ , Id_age$ , Id_ 

wt$ , Id_ht$ / Diag$ , Opera$ 
1030 ASSIGN @Sub_data TO * 
25 1040 Out_graph=2 
1050 FOR 1=1 TO 5 
1060 CALL Chart (I) 

1070 CALL Graph_dump(Out_graph) !.... chart dump 

1080 NEXT I 
30 1090 1 
1100 ! 

1110 Msg_dump: ! 
1120 IF Ans=l THEN 

1130 ASSIGN @Msg_file TO "msgs"&In_ 

35 f ile$&Diskl$ ; FORMAT OFF 

1140 ELSE 
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1150 ASSIGN §Msg_file TO "messglog" &Diskl$ ; FORMAT 

OFF 

1160 END IF 

1170 PRINTER IS 701 
5 1180 ASSIGN @Msg_buffer TO BUFFER Msg_buffer$ 

1190 STATUS @Msg_f ile, 3 ?Num_rec 

1200 STATUS @Msg_file,4;Rec_len 

1210 STATUS @Msg_file,7;Eof_rec 

1220 STATUS §Msg_f ile, 8 ;Eo£_byte 
10 1230 Num_bytes=(Eof_rec-l)*Rec_len+Eof_byte-l 

1240 Read_msg : TRANSFER @Msg_file TO §Msg_buffer; COUNT • 
Num_by tes , WAIT 

1250 ASSIGN @Msg_file TO * 

1260 ASSIGN @Msg_buffer TO * 
15 1270 Cur_ptr=l 

1280 PRINT USING Image_wtl; Sub_name$ ,Hos_num$ , ln_ 

file$ 

1290 Image_wtl : IMAGE "Name: " ,K,XXXX, "Hosp num: 

",K,XXXXX,K 

20 1300 PRINT USING Iniage_wt2;Id_age$,Id_wt$,Id_ 

ht$,Diag$,Opera$ 

1310 Image_wt2: IMAGE "Age: " ^K^XXX, "Wt (kg) : 
'MCXXXX/'Htfcm) : " ,K,XXXX # "Diag: 
" ,K,XXXX, n O$i ",K 
25 1320 Next_msg: ! 

1330 Beg_msg=POS ( Msg_buf f er $ [ 4 ] , "Time " ) +3 

1340 IF Beg_msg=3 THEN GOTO Stopper 

1350 PRINT Msg_buffer$[l,Beg_msg-l] 

1360 Msg_buf f er$=Msg_buf f er$ [Beg_msg] 
30 1370 GOTO Next_msg 

1380 Stopper: ! PRINTER IS 1 

1390 STOP 

1400 END 

1410 I 
35 1420 ! 

1430 iThis subroutine prints the graphics 
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5 



10 



20 



25 



30 



1440 
1450 
1460 
1470 
1480 



1490 



1500 



15 1510 



1520 

1530, 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 



35 



1 
1 

SUB Trend_graph 



COM /Trends/ Mean_hr_t(*) f Lfa_t(*) ,Rfa_ 
t(*) ,Ratio_t(*) ,T_ptr,Time_now 

1 ,Meas_r esp_t ( * ) , Tr end_dp , Trans_t ime ( * ) 
COM /Multi_param/ Start_chan,Stop_chan,Pacing_ 
bits,Pacing_rate,Num_pt 
s f Num_xf er , Num_xf er_lef t , Name_len , Scr_ 
file$[28],Scr_ 
file2$[28] 
COM /Pressure/ 

Topi , Top 2 , Top3 , Top 4 , Bo t 1 , Bo t 2 , Bo t 3 , Bot 4 
COM /Pres_chart/ Pres_time$ ( * ) ,Ao_s(*) ,Ao_ 
d(*) ,Ao_m(*) ,Pa_s(*) ,Pa_d(* 

) ,Pa_m(*) ,La_m(*) ,Ra_m(*) ,Pres_ptr ,Pres_in 
DIM First_line(60) ,Sec_line{ 60 ) ,Third_ 
line(60),Pourth_line(60) 
IF Trend_dp=l THEN 

MAT Pirst_line= Ao_m 

MAT Sec_line= Pa_m 

MAT Third_ > line= La_m 

MAT Fourth_line= Ra_ra 

G_right=INT( (Num_xf er*256/60 )/15) 

Trend_ptr=Pres_ptr 

Topl=150 

Botl=0 

Top2=75 

Bot2=0 

Top3=50 

Bot3=0 

Top4=50 

Bot4=0 

ELSE 

MAT First line= Mean hr t 
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1700 MAT Sec_line= Ratio_t 

1710 MAT Third_line= Lfa_t 

1720 MAT Fourth_line= Rfa_t 

1730 G_right=Num_xfer 
5 1740 Trend_ptr=T_ptr 

1750 Topl=200 

1760 Botl=0 

1770 Top2=2.5 

1780 Bot2=-2 . 5 

10 1790 Top3=10 

1800 Bot3=0 

1810 Top4=10 

1820 Bot4=0 

1830 END IF 

15 1840 Block_time=Pacing_rate*l. 024/3600. 

1850 GINIT 

1860 GCLEAR 

1870 PRINT CHR$(12) 

1880 GRAPHICS ON 

20 1890 Beg_time=Time_nowl/3600-Block_time 

1900 End__t ime=Beg_t ime+Num_x f e r * Block_t irae 

1910 Ibeg_time=INT(Beg_time) 

1920 IF Ibeg_time<Beg_time THEN Ibeg_time=Ibeg 
time+1 



25 1930 ! 

1940 ! label the time axes 
1950 I 



1960 VIEWPORT 0,128,45,50 

1970 WINDOW Beg_time,End_t irae, 0,1 

30 1980 IF INT(End_time)>Beg_time THEN 
1990 LDIR 0 

2000 FOR T_label=Ibeg_time TO INT(End_time) 

2010 MOVE T_label,.5 

2020 LORG 5 

35 2030 CSIZE 4 

2040 LABEL T label 
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10 



15 



20 
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35 



2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 



NEXT T_label 
END IF 

VIEWPORT 0,128,40,45 
WINDOW 0,1,0,1 
MOVE .5,0 
LORG 4 

LABEL "Time (24 hr)" 

! 

! draw the axes 
I 

VIEWPORT 0,128,50,100 
WINDOW Beg_t ime , End_time ,0,1 
AXES 1/15. , .l,Beg_time,0 
WINDOW 1,0,1,0 
AXES 0, .25,0,0 

i 

i mean heart rate trends 
! 

WINDOW -l,G_right,Botl,Topl 
MOVE 0,First_line(0) 
FOR 1=0 TO Trend_ptr-1 

DRAW I,First_line(I) 
NEXT I 

I 

I ratio trends (with a line at ratio=2) 



WINDOW -l,G_right,Bot2,Top2 

LINE TYPE 8,5 

IF Trend_dp=2 THEN 

MOVE 0 , LGT ( Sec_line ( 0 ) ) 

ELSE 

MOVE 0,Sec_line(0) 
END IF 

FOR 1=0 TO Trend_ptr-1 
IF Trend_dp=2 THEN 

DRAW I,LGT(Sec_line(I) ) 
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10 



15 



20 



25 



30 



35 



2410 
2420 
2430 
2440 
2450 
2460 

2470 

2480 

2490 

2500 ! 

2510 ! 

2520 ! 

2530 

2540 

2550 

2560 

2570 

2580 

2590 ! 

2600 ! 

2610 ! 

2620 

2630 

2640 

2650 

2660 

2670 

2680 ! 

2690 I 

2700 1 

2710 

2720 

2730 

2740 

2750 



ELSE 

DRAW I,Sec_line(I) 
END IF 
NEXT I 

IP Trend_dp=2 THEN 

LINE TYPE 3,5! . .sparsely dotted line at 
ratio=2 

MOVE 0,LGT(2.) 

DRAW Trend_ptr-1 / LGT(2. ) 
END IP 



lfa trends 



WINDOW -l,G_right,Bot3,Top3 

LINE TYPE 4,5 

MOVE 0,Third_line<0) 

FOR 1=0 TO Trend_ptr-1 

DRAW I,Third_line(I) 
NEXT I 

rfa trends 

WINDOW -l,G_right,Bot4,Top4 
LINE TYPE 5,5 
move 0,Fourth_line(0) 
FOR 1=0 TO Trend_ptr-1 

DRAW I,Fourth_line(I) 
NEXT I 

draw a key for line types 

VIEWPORT 64,128,0,50 

WINDOW 0,1,0,13 

IF Trend_dp=2 THEN 

PRINT TABXY( 1, 17 ); "trend graph" 
PRINT TABXY( 55,15) ; "mean hr( 0-200)" 
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2840 






PK1N1 lAJjAi l DU f lo J , ia pressure iu ju; 


10 


2850 






END IF 




A A ^ A 

2860 






LINE TYPE 1/3 




2870 






MOVJL .8f 11 




2880 






DRAW 1 • f 11 




2890 






LINE TYPE Of j 


15 


a a a a 
2900 






MOVE . o / 1 u 




2910 






DRAW 1 . , 10 




a a a a 
2920 






LINE TYPE 4 f 5 




a a a a 
2930 






MOVE .8,9 




2940 






DRAW l.,9 


20 


a a *? f\ 
2950 






LINE TYPE 5,5 




2960 






MOVE .8,8 




A A A 

2970 






DRAW l.,8 




2980 




SUBEND 




2990 


1 






25 


3000 


i 




• 




3010 


I This 


subroutine prints the charts 




3020 


1 








3030 


! 








3040 




SUB 


Char t ( Chart_nuia) 


30 


3050 






COM /Subject/ Sub_name$ , Hos_num$ , Id_age$ , Id_ 



wt$ , Id_ht $ , Diag$ , Opera$ , H 
alt_pg,In_f ile$ 
3060 COM /Io_chart/ Io_time$(*) ,Iv_intake(*) , Fluid 



in(*) ,In_tot(*) ,Urine(* 
35 ) ,Chest{*) ,0ut_tot(*) ,Net(*) ,Io_ptr 

3070 COM /Lab_chart/ Lab_ 
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time$(*),Na(*),Kl(*),Cl(*),Hco3(*)/Ca(*),Hct(*)/G 
luc(*) ,Dig(*),Pt(*) ,Ptt(*) ,Creat(*) ,Bun(*) ,Lab_ 
ptr 

3080 COM /Vent_chart/ Vent_ 

5 time$(*),Rate(*),Fio2(*)/Pp(*)rPeep(*),Tv(*), 
Ie_ratio$(*) ,Airp(*) ,Ph(*) f Po2(*) ,Pco2(*) , 
Bgo3(*) ,Be(*) ,Vent_ptr 
3090 COM /Pres_chart/ Pres _time$ ( * ) , Ao_s ( * ) / Ao_ 

d(*) ,Ao_m(*) ,Pa_s{*) ,Pa_d(* 
10 ) ,Pa_m(*) f La_m(*) ,Ra_m(*) ,Pres_ptr,Pres_in 

3100 COM /Pressure/ 

Topi , Top2 ,Top3 , Top4 , Bot 1 , Bot 2 / Bot3 , Bot 4 
3110 COM /Heart_index/ Heart_ 

time$(*) ,Ci(*) ,Pvri(*) ,Svri(*) ,Heart_ptr 
15 3120 COM /Drugs/ Drug_time$ ( * ) ,Drug_name$ ( * ) ,Drug_ 

dos$(*) ,Drug_ptr 
3130 Out_graph=2 
. 3140 Pres_stl=0 
3150 Lab_stl=0 
20 3160 lo_stl=0 

3170 Vent_stl=0 
3180 Drug_stl=0 
3190 Io_p=Io_ptr 
3200 Lab_p=Lab_ptr 
25 3210 Vent_p=Vent_ptr 
3220 Pres_p=Pres_ptr 
3230 Heart_p=Heart_ptr 
3240 Drug_p=Drug_ptr 
3250 ! 

30 3260 ! set up identifying subject info 

3270 ! 

3280 GRAPHICS OFF 

3290 PRINT CHR$(12) 

3300 PRINT TABXY (1,1); 

35 3310 PRINT USING Image_wtl ; Sub_name$ , Hos_num$ , In_ 

file? 
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3320 Image_wtl: IMAGE 



"Name: " ,K, XXXX, "Hosp num: 
",K,XXXXX,K 
3330 PRINT TABXY(1,2); 

3340 PRINT USING Image_wt2 ; Id_age$ , Id_wt$ ,Id_ 

5 ht$/Diag$,Opera$ 

3350 Image_wt2: IMAGE "Age: ",K,XXXX,"Wt(kg) : 
",K,XXXX,"Ht(cm) : ",K,XXXX,"Diag: 
. ",K, XXXX, "Op: ",K 
3360 ! 
10 3370 ! go to appropriate chart 

3380 ! 

3390 ON Chart_num GOTO In_out,Lab_val,Vent_ 

val , Pr es_val , Drug 
3400 In out: 1 ....intake/output 
15 3410 ! IF Io_ptr>3 THEN Io_stl=2 

3420 ! IP Io_ptr>5 THEN 

3430 1 DISP "do not input more Intake/Output 

i data; disc full" 





3440 


i 


WAIT 3 




20 


3450 


i 


SUBEXIT 






3460 


! 


END IF 






. 3470 




PRINT TABXY(30,3 


);" INTAKE/OUTPUT CHART" 




3480 




PRINT TABXY(1,4) 


f "Intake (cc/hr) " 




3490 




PRINT TABXY(1,5) 


; "Time" 


25 


3500 




PRINT TABXY(4,6) 


;"Maint. Fluid" 




3510 




PRINT TABXY{4,7) 


; "Other Fluids" 




3520 




PRINT TABXY(1,9) 


; "Total " 




3530 




PRINT TABXY(1,11 


); "Output (cc/hr)" 




3540 




PRINT TABXY(4,12 


); "Urine" 


30 


3550 




PRINT TABXY(4,13 


); "Chest" 




3560 




PRINT TABXY(l f 15 


) ; "Total" 




3570 




PRINT TABXY(1,17 


);"Net I/O" 




3580 




Start=25 






3590 




IF Io_ptr>3 THEN 


Io_p=3 


35 


3600 


Io_dp:FOR I=Io_stl TO 


Io_p 




3610 




PRINT TABXY( Start , 5 ) ; lo_time$ ( I ) 
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3620 PRINT TABXY(Start,6) ; Iv_intake( I ) 

3630 PRINT TABXY(Start,7) ;Fluid_in(I) 

3640 PRINT TABXY(Start,9) ;In_tot(I) 

3650 PRINT TABXY( Start, 12) ;Urine(I) 

5 3660 PRINT TABXY( Start , 13 ) ;Chest(I) 

3670 PRINT TABXY( Start, 15) ;Out_tot(I) 

3680 PRINT TABXY( Start, 17) ;Net(I) 

3690 Start=Start+10 

3700 NEXT I 

10 3710 IF Io_ptr>Ioj? THEN 

3720 INPUT "more data on next page - do you 
want this dumped to printe 
r? (Y/N)",Ans$ 

3730 IF Ans$= ,, Y" OR Ans$="y" THEN CALL Graph_ 

15 dump(Out_graph) 

3740 Io_stl=4 

3750 Io_p=Io_ptr 

3760 Start=25 

3770 FOR J=5 TO 17 

20 3780 - PRINT TABXY{ Start , J) ; " " 

3790 NEXT J 

3800 GOTO IO_dp 

3810 END IF 

3820 GOTO Finish 

25 3830 I 

3840 ! 

3850 Lab_val:l ...lab values 

3860 I IF Lab_ptr>3 THEN Lab_stl=2 

3870 IIP Lab_ptr>5 THEN 

30 3880 1 DISP "do not input any more lab values; 
I disc full" 

3890 I WAIT 3 

3900 I SUBEXIT 

3910 ! END IF 

35 3920 PRINT TABXY( 30,3) ; "Lab Values" 

3930 PRINT TABXY{10,4) ;"Time" 
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10 



20 



25 



30 



35 



3940 


PRINT 


TABXY (-1, 6) ; 


'Na" 


3950 


PRINT 


TABXY ( 1 r 7 ) ; 


K 


3960 


PRINT 


TABXY (1,8); 


'CI" 


3970 


PRINT 


TABXY (1,9); 


'HC03 M 


3980 


PRINT 


TABXY (1,10) 


} "Ca" 


3990 


PRINT 


TABXY (1,11) 


? "Hct" 


4000 


PRINT 


TABXY(1,12) 


? "Glucose" 


4010 


PRINT 


TABXY(1,13) 


?"Dig level" 


4020 


PRINT 


TABXY (1,14) 


. HpijiH 


4030 


PRINT 


TABXY (1,15) 




4040 


PRINT 


TABXY{1,16) 


?"Creat" 


4050 


PRINT 


TABXY{1,17) 


j"Bun" 


4060 


Start=15 




4070 


IF Lab_ptr>3 THEN Lab_p=3 



15 4080 Lab_dp:FOR I=Lab_stl TO Lab_p 



4090 


PRINT 


TABXY(Start+10, 


4) 


;Lab_time$ (I) 


4100 


PRINT 


TABXY(Start+10, 


6) 


;Na(l) 


4110 


PRINT 


TABXY (Start +10, 


7) 


;K1(I) 


4120 


PRINT 


TABXY (Start +10, 


8) 


;C1(I) 


4130 


PRINT 


TABXY( Star t+10, 


9) 


;Hco3(I) 


4140 


PRINT 


TABXY(Start+10, 


10 


);Ga(I) 


4150 


PRINT 


TABXY ( Star t+10, 


11 


);Hct(l) 


4150 


PRINT 


TABXY(Start+10, 


12 


);Gluc(I) 


4170 


PRINT 


TABXY(Start+10, 


13 


);Dig(l) 


4180 


PRINT 


TABXY(Start+10, 


14 


);Pt(i) 


4190 


PRINT 


TABXY (Star t+10, 


15 


);Ptt(i) 


4200 


PRINT 


TABXY (Start+10, 


16 


);Creat(I) 


4210 


PRINT 


TABXY(Start+10, 


17 


) ;Bun(I) 


4220 


Start* 


=Start+10 






4230 


NEXT I 








4240 


IP Lab_ptr>Lab_p THEN 






4250 


INPUT 


"more data on next page - do y 



4260 



want this dumped to printe 

r? (Y/N)",Ans$ 
IF Ans$="Y" OR Ans$="y" THEN CALL Graph_ 
dump ( Ou t_gr aph ) 
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10 



15 



-20 



25 



30 



4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360! 

4370! 

4380 

4390 

4400 

4410 

4420 



Lab_stl=4 

Lab_p=Lab_ptr 

Start=15 

FOR J=4 TO 17 

PRINT TABXY (Start, J) ;" 

NEXT J 

GOTO Lab_dp 
END IP 
GOTO Finish 



Vent_val:l ....ventilation values 

! IF Vent_ptr>3 THEN Vent_stl=2 
! IF Vent_ptr>5 THEN Vent_stl=4 
! IF Vent_ptr>7 THEN 

! DISP "do not input any more Vent values; 

disc full" 



35 



4430 


! WAIT 3 




4440 


! SUBEXIT 




4450 


! END IF 




4460 


PRINT 


TABXY (30,3) 


. "VENTILATION" 


4470 


PRINT 


TABXY (1,4) ;' 


'Settings 


4480 


PRINT 


TABXY (4,5) ;' 


•Rate" 


4490 


PRINT 


TABXY (4,6);' 


'FI02" 


4500 


PRINT 


TABXY(4,7);' 


'Peak Pres" 


4510 


PRINT 


TABXY(4,8) ;' 


'Peep" 


4520 


PRINT 


TABXY (4,9);' 


•TV" 


4530 


PRINT 


TABXY(4,10) 


;"I:E ratio" 


4540 


PRINT 


TABXY(4,11) 


?"Mean air" 


4550 


PRINT 


TABXY (1,12) 


; "Blood Gases" 


4560 


PRINT 


TABXY(4,13) 


; "ph" 


4570 


PRINT 


TABXY (4,14) 


?"p02" 


4580 


PRINT 


TABXY(4,15) 


;"pC02" 


4590 


PRINT 


TABXY (4, 16) 


;"HC03" 


4600 


PRINT 


TABXY (4, 17) 


; "BE" 


4610 


Start' 


=15 





Hour : " 
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4620 IF Venfc_ptr>3 THEN Vent_p=3 

4630 Vent_dp:FOR I=Vent_stl TO Vent_p 

4640 PRINT TABXY(Start+10,4);Vent_time$(I) 

4650 PRINT TABXY(Start+10,5) ;Rate(I) 

5 4660 PRINT TABXY(Start+10,6) ;Fio2(I) 

4670 PRINT TABXY(Start+10,7);Pp(I) 

4680 PRINT TABXY(Start+10,8) ;Peep(I) 

4690 PRINT TABXY(Start+10,9) ;Tv(I) 

4700 PRINT TABXY(Start+10,10);Ie_ratio$(I) 

10 4710 PRINT TABXY(Start+10,ll) ;Airp(I) 

4720 PRINT TABXY(Start+10,13) ;Ph(I) 

4730 PRINT TABXY<Start+10,14) ;Po2(I) 

4740 PRINT TABXY(Start+10,15);Pco2(I) 

4750 PRINT TABXY(Start+10,16) ;Bgo3(I) 

15 4760 PRINT TABXY( Start+10 , 17 ) ;Be( I) 

4770 Start=Start+10 

4780 NEXT I 

4790 IP Vent_ptr>Vent_p THEN 

4800 INPUT "more data on next page - do you 

20 want this dumped to printe 

r? (Y/N)",Ans$ 

4810 IP Ans$="Y" OR Ans$="y" THEN CALL Graph_ 
dump { Ou t_graph ) 

4820 Vent_stl=4 

25 4830 Vent_p=Vent_ptr 

4840 Start=15 

4850 FOR J=4 TO 17 

4860 PRINT TABXY(Start,J) ;" 

4870 NEXT J 

30 4880 GOTO Vent_dp 

4890 END IF 

4900 GOTO Finish 

4910 I 

4920 1 

35 4930 Pres_val:! ....pressure values 

4940 i IF Pres_ptr>12 THEN Pres_stl=5 
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10 



15 



20 



25 



30 



4950 


PRINT 


TABXY(9,3) ;"Time:" 


4960 


PRINT 


TABXY (1,4);" Systemic " 


4970 


PRINT 


TABXY(4,5) ; "systolic" 


4980 


PRINT 


TABXY(4,6) ; "diastolic" 


4990 


PRINT 


TABXY(4,7) ;"raean" 


5000 


PRINT 


TABXY(1,8) ; "Pulmonary" 


5010 


PRINT 


TABXY( 4,9) ; "systolic" 


5020 


PRINT 


TABXY(4,10) ; "diastolic" 


5030 


PRINT 


TABXY(4,11) ;"mean" 


5040 


PRINT 


TABXY (1, 12 ); "LA mean" 


5050 


PRINT 


TABXY (1, 13 ) ;"RA mean" 


5060 


PRINT 


TABXY (9, 14 ); "Time: " 


5070 


PRINT 


TABXY(1,15) ;"C.I." 


5080 


PRINT 


TABXY(1,16) ;"PVRI" 


5090 


PRINT 


TABXY (1,17);" SVRI " 


5100 


Start= 


=15 


5110 


IP Pres_ptr>12 THEN Pres_p=12 



5120 Pres_dp:FOR I=Pres_stl TO Pres_p 



35 



5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 



PRINT TABXY(Start,3) ;Pres_time$ ( I) 
PRINT TABXY (Start, 5) ;Ao_s(I) 
PRINT TABXY (Start, 6) ;Ao_d(I) 
PRINT TABXY (Start, 7) ;Ao_m(I) 
PRINT TABXY (Start, 9) ;Pa_s(I) 
PRINT TABXY (Start, 10) ;Pa_d(I) 
PRINT TABXY(Start,ll) ;Pa_m(I) 
PRINT TABXY (Start, 12 ) ;La_m( I) 
PRINT TABXY (Start, 13) ;Ra_m(I) 
Start=Start+5 

NEXT I 

Start=15 

FOR 1=0 TO Heart_ptr 

PRINT TABXY(Start,14) ;Heart_time$(I) 
PRINT TABXY (Start, 15) ;Ci(I) 
PRINT TABXY (Start, 16) ;Pvri(I) 
PRINT TABXY (Start, 17) ;Svri(I) 
Start=Sfcart+5 
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10 



15 



20 



25 



30 



35 



5310 
5320 
5330 



5340 

5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 



NEXT I 

IP Pres_ptr>Pres_p THEN 

INPUT "more data on next page - do you 
want this dumped to print e 

r? (Y/N)",Ans$ 
IP Ans$="Y" OR Ans$="y" THEN CALL Graph, 
dump ( Ou t_graph ) 
Pres_stl=13 
P r es_p=P r es_p t r 
Start=15 
FOR J=3 TO 13 

PRINT TABXY(Start,J) ;" " 
NEXT J 

GOTO Pres_dp 
END IF 
GOTO Finish 



! 



Drug:! ....hey man, drugs 

!IF Drug_ptr>9 THEN Drug_stl=4 
I IF Drug_ptr>14 THEN Drug_stl=9 
!IF Drug_ptr>19 THEN Drug_stl=14 
IIP Drug_ptr>24 THEN Drug_stl=19 
I IF Drug_ptr>29 THEN Drug_stl=24 
!IF Drug_ptr>34 THEN Drug_stl=29 
!IF Drug_ptr>38 THEN 

! DISP "do not enter more drugs; disc full" 
! WAIT 3 

! SUBEXIT 
I END IF 

PRINT TABXY(30, 4);" Drug Chart" 

PRINT TABXY (1,6); "Name " 

PRINT TABXY (30,6);" Dosage " 

PRINT TABXY (60,6); "Time " 

D_line=7 

IF Drug_ptr>9 THEN Drug_p=9 
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56.40 Drug_dp:FOR I=Drug_stl TO Drug_p 
5650 PRINT TABXY(l,D_line) ;Drug_name$(I) 

5660 PRINT TABXY( 30/D_line) ;Drug_dos$ ( I ) 

5670 PRINT TABXY(60,D_line) ;Drug_timeS ( I ) 

5 5680 D_line=DJLine+l 
5690 NEXT I 

5700 IP Drug_ptr>Drug_p THEN 

5710 INPUT "more data on next page - do you 

want this dumped to printer? ( Y/N) " ,Ans$ 
10 5720 IF Ans$="Y" OR Ans$="y" THEN CALL Graph_ 

dump ( Out_gr aph ) 

5730 Drug_stl=Drug_stl+10 

5740 Drug_p=Drug_p+10 

5750 D_line=7 
15 5760 FOR J=7 TO 17 

5770 PRINT TABXY(1,J) ; " 

5780 NEXT J 

5790 GOTO Drug_dp 

5800 END IF 

20 5810 Finish: ! 

5820 SUBEND 

5830 ! 

5840 I 

5850 • 
25 5860 SOB Graph_dump( A) 

5870 Graph_dump: INPUT "do you want a hard copy? 
<Y/N>",Ans$ 

5880 IF Ans$="Y" OR Ans$="y" THEN 

5890 IF A=l THEN 

30 5900 DUMP GRAPHICS #701 

5910 PRINTER IS 701 

5911 PRINT CHR$(12) 
5920 GRAPHICS OFF 
5930 ELSE 

35 5940 DUMP ALPHA #701 

5950 PRINTER IS 701 
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5960 PRINT CHR$(12) 

5970 END IP 

5980 END IF 

5990 PRINTER IS 1 



6000 SUBEND 
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10 Hrsa3:!THIS IS A PROGRAM TO SET UP THE HIGH SPEED 
A/D ! SYSTEM 

20 1 AND CONTINUOUSLY OBTAIN INFORMATION 

30 1 

5 40 I 

50 ! 

60 ! 

70 ! LAST REVISION: 30 April 1985 

80 ! 

10 90 ! 

100 1 

110 i 

120 ! > FULL SET OF DECLARATIONS FOR THE HP IB BUS 
15 EXTENDED TALK ADDRESSES 





130 








140 








150 


Assignments: 1 




160 


ASSIGN 


§Multi TO 723 


20 


170 


ASSIGN 


@Input_para TO 72301 




180 


ASSIGN 


@Input_intr TO 72302 




190 


ASSIGN 


@Input_ext TO 72303 




200 


ASSIGN 


<§Read_format TO 72304 




210 


ASSIGN 


@Memory_input TO 72305 


25 


220 


ASSIGN 


@Read_val TO 72306 




230 


ASSIGN 


@Read_status TO 72308 




240 


ASSIGN 


@Output_intr TO 72309 




250 


ASSIGN 


@Hpib_srq_status TO 72310 




260 


ASSIGN 


@Err_status_lst TO 72311 


30 


270 


ASSIGN 


@Int_addr TO 72312 




280 


ASSIGN 


§Busy_instr TO 72313 




290 


ASSIGN 


@Read_clock TO 72314 




300 


1 






310 


! 
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320 ! 

330 I 

340 I SET UP INTERRUPT/ERROR HANDLERS 
350 ! SET UP COMMON STORAGE/ARRAY STORAGE 
5 360 I • 



370 I 
380 ! 

390 COM /Intr_7/ Int_£ lag, Status_bytes{ 5) 
10 400 COM /Flags/ Atod_done,Scanner_done, Memory 1_ 
done , Memory 2_done f Time r_done , Counterjione , 
Memory3_done , Memory4_done 
410 COM /Io_arrays/ Counters ( 3) ,Counters2( 3) ,Time_ 
base$[7] 

15 420 COM /Mul ti_pa ram/ Start_chan,Stop_chan,Pacing_ 
bits , Pacing_rate , Num — pts , Nu m_xf er , Num_xf er_ 

lef t ,Name_len r Scr_f ile$ [ 28 ] , Scr_ 
file2$[28] 

430 COM /Hr_sig/ Num_pulses,Last_pulse,First_blk_ 
20 f Ig , Last_time , Numjir_sig ,Max_hr jpts , Avg_ 

hr /Rollover # Hr_sniooth 
440 COM /Plotjpar/ Plotbox,Boxcar_f lg,Log_ 

plot£lg f Freq_limit,Resp_search,Pct_thresh 

450 COM /Graphs/ 
25 Hrdata(512) ,Hrspec(512) ,Respspec( 512) ,Bpspec(512) 

460 COM /Vitaldata/ Rf a,Lf a,Peakratio,Meas_resp, Next_ 
time 

470 COM /Messagecom/ Message$(10) fBO] ,@Messages 
480 COM /Trends/ MeanJirJ: ( 60 ) ,Lfa_t ( 60 ) ,Rf a_ 
30 t(60) ,Ratio_t(60) #T_ptr ,Time_now l,Meas_resp_ 

t(60) ,Trend_dp 
490 COM /Pressure/ 

Topi , Top 2 , Top3 , Top4 , Botl , Bot 2 , Bo 1 3 , Bo 1 4 
500 COM /Editor/ Edit_msg$ [ 80 ] 
35 510 COM /Subject/ Sub_name$ [ 25 ] , Hos_num$ [ 15 ] , Id_ 
age$[10],Id_wt$[10] ,Id_ht$[10 ] ,Diag$[30] , 



Opera$ [ 45 ] ,Halt_pg 

COM /Io_chart/ Io_time$(8) [10] ,Iv_intake(8) , Fluid 

in(8) ,In_tot(8) ,Urine(8 ) ,Chest(8) ,Out_ 
tot (8) ,Net(8) ,Io_ptr 

COM /Lab_chart/ Lab_time$ (8) [10 ] ,Na(8) ,K1(8) , 
Cl<8),Hco3(8) ,Ca(8) ,Hct(8) ,G luc(8) , 
Dig(8) ,Pt(8) ,Ptt(8) ,Creat(8) ,Bun(8) ,Lab_ptr 

COM /Vent_chart/ Vent_ • 

time$(8)[15],Rate(8) ,Fio2(8) ,Pp(8) ,Peep(8) ,Tv(8) , 
Ie_ratio$(8)[10],Airp(8),Ph(8),Po2(8), 
Pco2(8),Bgo3(8) ,Be(8) ,Vent_ptr 

COM /Pres_chart/ Pres_time$ ( 20 } [15] ,Ao_s(20) ,Ao_ 
d ( 20 ) ,Ao_m(20) ,Pa_s( 20) ,Pa_d( 20) ,Pa_m( 20) , 
La_m( 20) ,Ra_m( 20) ,Pres_ptr ,Pres_in 
COM /Heart_index/ Heart_ 

time$(15) [15] ,Ci(15) ,Pvri{15) , Svri(15) ,Heart_ptr 

COM /Drugs/ Drug_time${ 40) [ 20 ] , Drug_ 

name?(40) [40] ,Drug_dos$ { 40 ) [20] ,Drug_ptr 

DIM Io$(5,15) [30] ,Io_msg$(5,15) [80] 

DIM Msg_pad$(10) [80] 

DIM Msg_buffer$[80] BUFFER 

ASSIGN @Msg_buffer TO BUFFER Msg_buffer$ 

Log_plotf lg=0 

Freq_limit=l. 

Resp_search= . 1 

Pct_thresh=.2 

Scr_file$="?" 

Halt_pg=0 

Message$ ( 0 ) ="messages in " 
Message$(l)="I/0 chart " 
Message$(2)="lab values" 
Message$ ( 3 ) ="heraodynamics" 
Message$(4)="Trends Display" 
Message$(5)="messages out" 
Message$(6)="STOP PROGRAM" 
Message$ ( 7 ) ="ventilation" 
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10 



770 
780 
790 
800 
810 
820 

830 
840 
850 
860 

870 



Message? ( 8 ) ="drugs " 
Messages (9 )="B. P. Display" 
Msg_pad_ptr=0 
P_ptr=0 

! 

! Set up common/array storage for -waveform 
analysis 

! 

! 

! 

! Set up common/array storage for waveform 
analysis 



! 



15 



20 



25 



30 



35 



880 
890 
900 
910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 



COM /Directory/ Dir$ [ 160 ] ,@Printer 
COM /Wfl/ Printer, Plotter, String$ [40] 
COM /Wf2/ Signal ( 1089 ) ,Number_pnts, Type, Sampling_ 
period 

COM /Wf3/ Segment_size, Overlap, Num_segments,Pnts_ 

used,Ff t_size 
COM /Wf5/ Refn(63) ,Refd(63) ,Refno,Ref do,Ref gain 
COM /Autoparam/ Up_down,Up_delay,Dn_delay 
COM /Vars/ Ffthrvar,Fftrespvar 

DISP "loading subroutines" 

LOADSUB ALL FROM "multi_subs" 

LOADSUB ALL FROM "hr_siggen8" 

LOADSUB ALL FROM "automaxsb2" 

LOADSUB ALL FROM "fft_anal6" 

DISP "load data disks and press CONTINUE" 

PAUSE 



I 



I 



i 



I The HP 9826/9836 flexible disk (5-1/4") has the 
! following structure 
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1070 

1080 
1090 
1100 
1110 
1120 



2 sides, 33 tracks/side, 16 sectors/track, 256 

bytes/sector 
1 track = 4096 bytes = 16 sectors 
1 side = 135168 bytes = 528 sectors 
1 disk - 270336 bytes = 1056 sectors 
1 disk = 135168 words - 132K words 



10 



15 



20 



1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 



INTEGER Hpib_bufferl(2048) BUFFER 
INTEGER Hpib_buffer2{2048) BUFFER 
DIM Hr_signal(1024) BUFFER 
Read_ptrl=0 
Read_ptr2=0 



! CLEAR MULTI PROGRAMMER 



25 



30 



1250 
1260 
1270 



ON INTR 7 CALL Hpib_intr 
1280 Begin: CALL Multi_clear 
1290 ! 



1300 
1310 
1320 
1330 



J LOAD SUPPLEMENTAL INSTRUCTION SET ("MR") 
! usage: "MR,<card addr>,<# words>,<read 
ptr>, <mode>T" 
1340 I 
1350 I 



<mode= 1-FIFO, 4-recirculating> 



35 



1360 ! 
1370 ! 
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1380 
1390 
1400 
1410 
1420 
1430 
1440 



DISP "DOWNLOADING MR INSTRUCTION" 
CALL Xfer("MR") 

I 
! 

1 

! SET UP CARDS FOR DATA COLLECTION 
I 



10 



15 



20 



25 



30 



35 



1450 
1460 
1470 
1480 

1490 
1500 
1510 

1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 

1610 

1620 

1630 

1640 

1650 



! 
! 

Selections: DISP "SETUP DATA COLLECTION" 

OUTPUT SMulti; "CY,3T" ! CYCLE SCAN/PACER CARD TO 
SET DEFINITE STATE 



NOW SET UP THE SCAN CARD PARAMETERS (DEFAULT 



VALUES) 

START CHANNEL (3.0) 

STOP CHANNEL (3.1) 

PACING (3.2) 

SEQN'L SCAN (3.3) 

INTN'L PACING (3.3) 

MSEC TIMEBASE (3.3) 



0 
1 

40 USEC 

XXXX XXXX XXXI ( 1) 
XXXX XXXX X1XX ( 4) 
XXXI XXXX XXXX (256) 



CALL Get_param 
ASSIGN ©Messages TO 

"messglog:HP8290X,700,l";FORMAT OFF 
ASSIGN @Temp_trend TO "temp_ 
trend : HP8 29 OX ,700,1" ; FORMAT OFF 
ASSIGN @Hemo_data TO "hemo_ 
data:HP8290X,700,l";FORMAT OFF 

ASSIGN @Io_data TO "io_data:HP8290X,700,l";FORMAT 
OFF 

ASSIGN @Lab_data TO "lab_ 
data:HP8290X,700,l";FORMAT OFF 
ASSIGN <§Vent data TO "vent 
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data:HP8290X,700,l";FORMAT OFF 

1660 ASSIGN @Co__data TO "co_data:HP8290X, 700,1" ; FORMAT 
OFF 

1570 ASSIGN @Drug_data TO "drug_ 
5 data:HP8290X,700,l";FORMAT OFF 

1680 IF Num_pts=0 THEN GOTO Begin 
1690 Read_ptrl=0 
1700 ! 
1710 ! 

10 1720 ! SET FIFO MODE AND CLEAR POINTERS IN MEMORY 
1730 ! 
1740 ! 

1750 Setup_scan:DISP " NUMBER OF POINTS=" ;Num_pts 
1760 OUTPUT @Multi; "WF,3.0",Start_chan, "3.1",Stop_ 
15 chan,"3.3" f Pacing_bits / ,, 3.2" 
,Pacing_rate, "T" 
1770 OUTPUT @Multi;"CC,6T" 

1780 OUTPUT @Multi;"WF,5.1,l,T" ! memory set to FIFO 
input mode 

20 1790 OUTPUT @Multi ; "AC, 3 , 5 , 6T" 1 cards are armed to 
supply interrupts 
1800 OUTPUT @Multi;"RV,6.0,6.1,6.2,6.3T" ! checking 

control registers 
1810 ENTER @Read_val;Counters(*) 
25 1820 Read_ptrl=0 
1830 Read_ptr2=0 
1840 1 

1850 ! setup the counter card to count 
1860 ! 

30 1870 Setup_counter: OUTPUT @Multi; "CC, 10,11, 12,13T" 

1880 OUTPUT @Multi; '^0,10,12,131" !_counter not armed 
1890 OUTPUT @Multi; "CY,11T" 
1900 ! 

1910 ! setup the pacer card to generate a clock with 
35 period 32 Usee 

1920 ! (one half period is 16 Usee) 
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1930 


1 (corresponds to 31. 2 5 KHz) 




1940 


! 




1950 Setup_clock : OUTPUT @Multi ; "WF10 . 2 , IT" 




1960 


OUTPUT QMulti; WFlOfloU T 


5 


1970 


CALL Completer! setup completed > 




1 A O A 

1980 






i rt ft ft 

1990 


• 
i 




2000 


1 START THE PACERS BX CxCLlNG xM FAKAJjLiiLJLi 




2010 


1 


10 


ft ft ft ft 

2020 


OUTPUT QMUlti; GPT 




20 JO 


uAuii xnic^Eiags 




2040 


ENABLE INTR / ; 2 






/-\T7mT5T7m diinl +- ■? • H/^V "5 1 AT" 
UUTi'UT (gWUlti; Li / 




20o0 


UUlirul ISMUlti ; uol 


15 


1 A *7 A 

2070 


Star t_ pacing— ximeua ie 




2080 


CALL Compieter( pacing started ) 




1 A Q A 

2090 


BiocK_time— Facing_ra i-e^i • U2* 




n A A 

2100 


Next t ime— TIMEDATE+1NT [ B10CK_t lltte ) 






r lrsc oik Eig — i 


20 


2X20 


Num msgs— o 




•51 "in 

21 JO 


Message_iine— o 




Ol A A 

2140 


Msg ap request— u 




01 e ft 

2150 


Re sp_ dp f 1 g — 0 




#^ T fT ft 

2160 


\t mm mm mm, mm - 1_ _ ^| A M J 

Max_nr_pts= s 1024 


25 


2170 


T mm jma Lm 1_ 1 _ 

Last_time=0 




1 ft ft 
2180 


Trend_dp=G * 




2190 


!Hemo_dp«0 




2200 


Topl=0 




2210 


Top2=0 


30 


2220 


Top3=0 




2230 


Top4-0 




2240 


Botl=0 




2250 


Bot2=0 




2260 


Bot3=0 


35 


2270 


Bot4=0 




2280 


j 
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2290 Io$(l,l)="Time - hh:mm(hh=l to 24)" 

2300 Io$(l,2)="Maint. fluids" 

2310 Io$(l,3)="other fluids" 

2320 Io$(l,4)="urine output" 

5 2330 Io$(l,5)="chest output" 

2340 Io$(2,l)="Time - hh:mm" 

2350 Io$(2,2)="Na" 

2360 Io$(2,3)="K" 

2370 Io$(2,4}="Cl" 

10 2380 Io$(2,5)="HC03" 

2390 Io$(2,6)="Ca" 

2400 Io$(2,7)="Hct" 

2410 Io$(2,8)="Glucose" 

2420 Io$(2,9)="Dig level" 

15 2430 IO$(2,10)="PT" 

2440 Io$(2,ll)="PTT" 

2450 Io$(2,12)="Creat" 

2460 Io$(2,13)="Bun" 

2470 Io$(3,l)="Time - hh:mm(hh=l to 24)" 

20 2480 Io$(3,2)="Resp rate" 

2490 Io$(3,3)="FI02" 

2500 Io$(3,4)="Peak pres" 

2510 Io$(3,5)="peep" 

2520 IO$(3 f 6)= ,, TV" 

25 2530 Io$(3,7)="I:E" 

2540 Io$(3,8)="mean airway" 

2550 Io$(3,9)= M ph" 

2560 Io$(3,10)="pO2" 

2570 Io$(3,ll)="pC02" 

30 2580 IO$(3,12)="HC03" 

2590 IO$(3,13)="BE" 

2600 Io$(4 r l)="Tirae - hh:mm(hh=l to 24)" 

2610 Io$(4,2)="ao/s" 

2620 Io$(4,3)="ao/d" 

35 2630 Io$(4,4)="ao/ra" 

2640 Io$(4,5)="pa/s" 
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2650 Io$(4,6)="pa/d". 

2660 Io$(4,7)="pa/m" 

2670 Io$(4,8)="la/m" 

2680 Io$(4,9)="ra/m" 

2690 Io$(4,10)="Time - hh:mm(hh=l to 24)" 

2700 Io$(4,H)="C.I." 

2710 Io$(4,12)="pvri" 

2720 Io${4,13)="svri" 

2730 Io$(5,l)="name" 

2740 Io$(5,2)-"dosage" 

2750 Io$(5,3)="Time - hh:mm:ss(hh=l to 24)" 

2760 lo_ptr=0 

2770 Lab_ptr=0 

2780 Vent_ptr=0 

2790 Pres_ptr=0 

2800 Heart_ptr=0 

2810 Drug_ptr-0 

2820 lo_in=0 

2830 Lab_in=0 

2840 Vent_in=0 

2850 Pres_in=0 

2860 Heart_in=0 

2870 Drug_in=0 

2880 Pst=l 

2890 Pix__val=0 

2900 ! 

2910 ! Read data continuously and write to the disk 

continuously until enough 

2920 ! enough data has been obtained 

2930 • 

2940 ! 

2950 Reading: i 

2960 ! 

2970 ! set up the A/D buffers and disk files 

2980 ! 

2990 ASSIGN @Memory_input TO 72305; FORMAT OFF 
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3000 ASSIGN @In_buffer TO BUFFER Hpib_buf ferl( *) 

3010 ASSIGN @Out_buffer TO Scr_file$; FORMAT OFF 

3020 ! 

3030 ! set up the counter memory buffers and files 

5 3040 ! 

3050 ASSIGN @Memory_input2 TO 72305; FORMAT OFF 

3060 ASSIGN @In_buffer2 TO BUFFER Hpib_buf f er2 ( * ) 

3070 ASSIGN @Out_buffer2 TO Scr_file2$ ; FORMAT OFF 

3080 I 

10 3090 Data_lockout=0 

3100 1 

3110 Tiitie_now=T IMEDATE 

3120 Date_now$=DATE$ ( TIMEDATE) 

3130 Time_nowl=Time_now MOD 86400 

15 3140 1 

3150 Blk_xfer : ! 

3160 ' CONTROL @In_buffer, 3; 1 

! Reset fill pointer for buffer 

3170 CONTROL @In_buf f er,4; 0 

20 1 Reset current number of bytes in buffer 

3180 CONTROL §In_buf f er , 5 ; 1 ! Reset empty pointer 

for buffer 

3190 ! 

3200 ! write an 8 byte sequence to disk as a header for 

25 1 the transfer 

3210 ! 

3220 CALL Xf header ( @Out_buffer ,Num_pts , "R" ) 

3230 ! 

3240 ! read A/D buffer into memory (hpib_buf f erl) in 32 

30 segments 

3250 • if possible 

3260 ! 

3270 IF FRACT(Num_pts/32. )=0 THEN 

3280 Num_rdseg=32 

35 3290 Num_rdpts=Num_pts/32 

3300 ELSE 
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3310 Num_rdseg=l 
3320 Num__rdpts=Num_pts 
3330 END IP 
3340 1 

5 3350 1 reading segments here, segmenting allows disk 
access between segments 

3360 ! 

3370 FOR Rdseg=l TO Num_rdseg 
3380 OUTPUT §Multi; "MR, 5" ,Num_rdpts ,Read_ 

10 ptrl,"lT"! FIFO mode 

3390 ON EOT @Memory_input GOTO Next_rdseg 

3400 TRANSFER @Memory_input TO § I n_b u f f e r ; COUNT 

Num_rdpts*2,CONT 
3410 PRINT TABXY ( 1,18) ; 

15 3420 PRINT USING Image_wtl;Num_xf er-Num_xf er_ 

lef t+1 ,Num_xf er , TIME$ ( Next_t ime ) , 
Rdseg,Num_rdseg 
3430 lmage_wtl : IMAGE "Next xf er ( " ,K, "/" ,K, " ) : ",K," 
seg=",K,"/",K 
20 3440 Waiterl:DISP "Now: " ; TIME$ ( TIMED ATE) ; " 
" ; DATE$ ( TIMED ATE ) 



3450 IF Next_time-TIMEDATE<12 THEN 
3460 OFF KEY 

3470 OFF KBD 

25 3480 OFF KNOB 

3490 GOTO Waiterl 

3500 END IF 

3510 ON KEY 0 LABEL Message$ ( 0 ) GOSUB KeyO 

3520 ON KEY 1 LABEL Message$(l) GOSUB Keyl 

30 3530 ON KEY 2 LABEL Message$(2) GOSUB Key2 

3540 ON KEY 3 LABEL Message${3) GOSUB Key3 

3550 ON KEY 4 LABEL Message$(4) GOSUB Key 4 

3560 ON KEY 5 LABEL Message$(5) GOSUB Key5 

3570 ON KEY 6 LABEL Message$(6) GOSUB Key6 

35 3580 ON KEY 7 LABEL Message$(7) GOSUB Key7 

3590 ON KEY 8 LABEL Message$(8) GOSUB Key8 
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3600 ON KEY 9 LABEL Message$(9) GOSUB Key9 

3610 ON K3D GOTO Ccntrol_chars 

3520 IF Msg_dp_request=2 THEN 

3630 ON KNOB .05 GOSUB Movejnsgs 

5 3640 ELSE 

3650 OFF KNOB 

3660 END IF 

3670 STATUS @In_buf fer , 10; In_xf er_stat 

3680 IF In_xfer_stat<64 THEN GOTO Next_rdseg 

10 3690 IF Msg_dp_request=3. THEN 

3700 CALL Msg_dump{Message_chart$ ( *) , Message 

line,Msg__dp_request ) 

3710 END IF 

3720 GOTO Waiterl 

15 3730 Ccntrol_chars: ! 

3740 Kbd_hold$=KBD$ 

3741 IF POS(Kbd_hold$,CHR$(6) )<>0 THEN 
!.. change If a disp. range 

3742 Lfa_top=Lfa_top+2.5 

20 3750 IF POS(Kbd_hold$,CHR$(5) )<>0 THEN 

!.. change spectra disp. freq. range 

3760 IF Freq_limit=l. TEEN 

3770 Freq_limit=2. 

3780 ELSE 
25 3790 Freq_limit=l. 

3800 END IF 

3810 Resp_search=.l 

!.. reset resp search point each time 

3820 DISP "Spectra displayed to";Freq_ 

30 limit; "Hz" 

3830 WAIT 2 

3840 END IF 

3850 IF POS(Kbd_hoid$,CHR$(8) )<>0 THEN !..help: 

display commands 
35 3360 CALL Disp_ctrls 

3870 END IF 
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3880 IP POS(Kbd_hold$,CHR$(16) )<>0 THEN 

!.. change peak search threshold 

3890 Pct_thresh=Pct_thresh+.2 

3900 IP Pct_thresh>.8 THEN Pct_thresh=. 2 

5 3910 , DISP "resp peak search threshold=" ;Pct_ 

thresh ;"%" 

3920 WAIT 1 

3930 END IF • 

3940 IF POS(Kbd_hold$,CHR$(18) )<>0 THEN 

10 !.. display respiration time series 

3950 IF Resp_dpflg=0 THEN 

3960 Resp_dpflg=l 

3970 DISP "resp series plot w/hr series" 

3980 WAIT 2 

15 3990 ELSE 

4000 Resp_dpflg=0 

4010 DISP "cancel resp series plot" 

4020 WAIT 2 

4030 END IF 

20 4040 END IF 

4050 IF POS(Kbd_hold$,CHR$(19) )<>0 THEN 
'..change respiration peak search 

4060 Resp_search=Resp_search+.l 

4070 IF Resp_search>Freq_limit-.l THEN Resp_ 

25 search=.l 

4080 DISP "resp peak search starts at";Resp_ 
search; "Hz" 

4090 WAIT 1 

4100 END IF 

30 4110 GOTO Waiterl 

4120 Next_rdsegi ! 

4130 ! 

4140 ! storing messages from soft keys if any 

4150 ! 

35 4160 IF Msg_pad_ptr>0 THEN 

4170 Num_msgs=Num_msgs+Msg_pad_ptr 
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4180 FOR 1=0 TO Msg_padjptr-1 

4190 Msg_buf f er$=Msg_pad$ ( I ) 

4200 Len_message=LEN(Msg_buf f er$) 

4210 CONTROL @Msg_buf f er , 4 ;Len_ 

5 message I •...number of bytes 

4220 CONTROL QMsgjDuf f er , 5 ; 1 

empty pointer to beginning 
4230 TRANSFER @Msg_buffer TO 

©Messages; COUNT Len_message/CONT 
10 4240 NEXT I 

4250 IF Msg_dp_request>=2 THEN 

4260 DEALLOCATE Message_chart$ ( * ) 

4270 Msg_dp_request=0 
4280 END IF 

15 4290 OFF KNOB 

4300 Msg_pad_ptr=0 
4310 END IF 

* 4320 IF Msg_dp_reques-t=l THEN 

4330 Message_line=G 
20 4340 ALLOCATE Message_char t$ ( 17 ) [ 640 ] 

4350 CALL Msg_dump(Message_chart$ (*) /Message 

line,Msg_dp_request ) 
4360 IF Msg_dp_request=0 THEN 

! . . .no messages 
25 yet 

4370 DEALLOCATE Message_chart$ ( * ) 

4380 END IF 

4390 END IF 

4400 i 

30 4410 ! get read pointer for next segment 
4420 ! 

4430 OUTPUT @Multi ; "RV,6. 0T" 

I checking current read pointer 
4440 ' ENTER @Read_val ;Read_pt rl 

35 4450 NEXT Rdseg 
4460 ! 
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4470 ! store A/D buffer on complete data file (also 
save pointers for heart rate) 

4480 ! 
4490 ! 

5 4500 Resumel:OFF EOT @Memory_input 
4510 OFF KEY 
4520 OFF KBD 
4530 OFF KNOB 

4540 IF Msg_dp_request>=2 THEN 
10 4550 DEALLOCATE Message_chart$ ( * ) 

4560 Msg_dp_request=0 
4570 END IF 

4580 IF Trend_dp=l OR Trend_dp=2 THEN DEALLOCATE 
Spectra(*) 

15 4590 Next_time=Next_time+INT(Block_time) 
4600 ON EOT @Out_buffer GOTO Resume2 
4610 OUTPUT @Multi;"RV,13.0 r 13.1,13.2,13.3T" 

I checking control registers 
4620 ENTER §Read_val ;Counters2 ( * ) 
20 4630 Read_ptr2=Counters2(0) 
4640 Num_pulses=Counters2(l) 

4650 TRANSFER §In_buffer TO @Out_buffer; COUNT Num_ 
pts*2,CONT 

4660 Waiter2:DISP TIME$ ( TIMEDATE ) , DATE$ ( TIMEDATE ) 
25 4670 GOTO Waiter2 
4680 1 
4690 ! 
4700 ! 
4710 1 

30 4720 Resume2:OFF EOT @Out_buffer 

4730 Num_xf er_lef t=Num_xf er_lef t-1 

4740 OUTPUT ©Multi ; "MR, 12 " , Num_pulses , Read_ 
ptr2 / "lT" i FIFO mode 

4750 CONTROL @In_buf f er 2 , 3 ; 1 
35 i Reset fill pointer for buffer 

4760 CONTROL @In buffer2,4;0 
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1 Reset current number of bytes in buffer 
4770 CONTROL @In_buf f er 2 , 5 ; 1 

1 Reset empty pointer for buffer 
4780 ! 

5 4790 ! write an 8 byte sequence to disk as a header for 
I the transfer 
4800 ! 

4810 CALL Xf header ( <§0ut_buf f er 2, Num_pulses, "H" ) 
4820 i 

10 4830 ! read multiprogrammer into computer memory (hpib_ 
buffer) 

4840 ! 

4850 ON EOT @Memory_input2 GOTO Resume4 
4860 TRANSFER @Memory_input2 TO @In_buf f er2 ;COUNT Num_ 
15 pulses* 2, CONT 

4870 Waiter4:DISP TIME$ ( TIMEDATE ) , DATE$ ( TIMEDATE ) 
4880 GOTO Waiter4 
4890 ! 

4900 ! store computer memory on complete data file 
20 4910 ! 

4920 Resume4:OFF EOT §Memory_input2 
4930 ON EOT @Out_buffer2 GOTO Resumes 
4940 TRANSFER @In_buffer2 TO @Out_buf fer2;COUNT Num_ 
pulses*2,CONT 

25 4950 Waiter5:DISP TIME$ (TIMEDATE) ,DATE$ (TIMEDATE) 
4960 GOTO Waiters 
4970 I 

4980 Resumes :OFF EOT §Out_buffer2 

4990 CALL Hr_sig_gen(Hpib_buf f er2 ( * ) , Hr_signal ( * ) ) 
30 5000 ! 



5010 ! 

5020 Resumed:! 
35 5030 OUTPUT §Multi ; "RV, 6 . 0 , 6 . 1 , 6 . 2 , 6 . 3T" 
! checking control registers 
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5040 ENTER @Read_val;Counters(*) 

5050 Read_ptrl=Counters(0) 

5060 IF Counters (1) =4095 THEN ! Data lockout probably 
. occurred 

5 5070 PRINT "DATA LOCKOUT ! i TIME RECORD 

NOT CONTINUOUS 1 ! " 

5080 PRINT "ABORTING CURRENT DATA COLLECTION." 

5090 Data_lockout=l 
5100 Num_xfer_left=0 

10 5110 END IP 

5120 OUTPUT 2;CHR$(255)&CHR$(75) ; 

! Clear CRT of text 

5130 GINIT 

5140 PLOTTER IS 3, "INTERNAL" 

15 5150 GRAPHICS ON 

5160 Xscale=8 

5170 Hr_max=MAX(Hr_signal(*) ) 

5180 Hr_min=MIN(Hr_signal(*) ) 

5190 VIEWPORT 0,64,50,100 

20 5200 WINDOW 0,1,0,1 

5210 AXES .1,. 1,0,0 

5220 CSIZE 4 

5230 Hr_signal(1024)=0 

5240 Hr_sigsum=SUM(Hr_signal) 

25 5250 Mean_hr=INT( (Hr_sigsum/1024+Avg_hr ) ) 

5260 Hr_bias=Hr_sigsum/1024 

5270 LDIR 0 

5280 LORG 3 

5290 MOVE .2,. 9 

30 5300 LABEL "HR data hr=";Mean_hr 

5310 CSIZE 4 

5320 MOVE .05,1 

5330 LORG 3 

5340 LABEL "250 bpm" 

35 5350 WINDOW 1,0,1,0 

5360 AXES 0,0,0,0 
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5370 IP Hr_dispf lg=l THEN 

5380 WINDOW 0,1024,Hr_min,Hr_max 

5390 ELSE 

5400 Low_window=INT(-Avg_hr) 

5 5410 High_window=Low_window+250 . 

5420 WINDOW 0 , 1024,Low_window,High_window 

5430 END IF 

5440 FOR 1=0 TO 1023 

5450 PLOT I,Hr_signal(I) 

10 5460 NEXT I 

5470 1 

5480 ! display respirations time series also 

5490 ! 

5500 .IP Resp_dpflg=l THEN 

15 5510 Max_resp=MAX(Hpib_buf ferl(*) ) 

5520 Min_resp=MIN(Hpib_bufferl(*) ) 

5530 IP Mean_hr>100 THEN 

5540 VIEWPORT 0,64,50,65 

5550 ELSE 

20 5560 VIEWPORT 0,64,75,90 

5570 END IF 

5580 WINDOW 0,1023,Min_resp,Max_resp 

5590 MOVE 0,Hpib_bufferl(0) 

5600 FOR 1=1 TO 1023 

25 5610 PLOT I,Hpib_buf ferl(I) 

5620 NEXT I 

5630 ELSE 

5640 Resp_dpflg=0 

5650 END IP 

30 5660 ! 

5670 ! now process heart rate data with waveform 

analysis package 

5680 I make sure the hr_signal has zero mean 

5690 ! 

35 5700 FOR 1=0 TO 1023 

5710 Signal ( I ) =Hr_signal ( I ) -Hr_bias 
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10 



15 



20 



25 



30 



5720 
5730 
5740 
5750 
5760 
5770 

5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 

5910 
5920 
5930 
5940 
5950 
5960 
5961 
5970 
5980 

5990 
6000 
6010 



35 



NEXT I 
Plotbox=2 

DISP "HR fft in process" 
CALL Wf_analyzer(Pacing_rate) 

1 

! now process respiration data with waveform 
analysis package 

! 

MAT Signal= (0) 
FOR 1=0 TO 1023 

Signal ( I ) =Hpib_buf f erl ( I ) 
NEXT I 

Signal_avg=SUM( Signal )/1024. 
MAT Signal= Signal- (Signal_avg) 
Plotfaox=4 

DISP "RESP fft in process" 
CALL Wf_analyzer (Pacing_rate) " 
Trend_dp=0 !.. trend graph not displayed 

i 

! waveform analysis completed, compile trends and 
store in temporary file 

1 

Mean_hr_t ( T_ptr ) =Mean_hr 

Lfa_t(T_ptr)=Lfa 

Rfa_t(T_ptr)=Rfa 

Ratio_t (T_ptr ) =Peakratio 

Meas_resp_t ( T_pt r ) =Meas_resp 

Trans_time(T_ptr )=Xf er_time 

T_ptr=T_ptr+l 

OUTPUT @Temp_t r end ; T_pt r -1 , Mean_ 
hr / Lf a / Rf a , Peak ratio, Meas_r esp , Xf e r_t ime 
IF Pres_in=l THEN 
Pr=Pres_ptr-l 

OUTPUT @Hemo_data;Pres_time$(Pr) ,Ao_s(Pr) ,Ao_ 
d(Pr) ,Ao_m(Pr) ,Pa_s(Pr) , 

Pa_d(Pr) ,Pa_m(Pr) ,La_m(Pr) ,Ra_m(Pr ) ,Pr 
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6020 Pres_in=0 
6030 END IP 
6040 IP IO_in=l THEN 
6050 IO=IO_ptr-l 

6060 OUTPUT @Io__data;IoJ:ime$(Io) ,Iv_ 

. intake(Io) ,Fluid_in(Io) ,In_tot(Io) ,Ur 
ine(Io) ,Chest(Io) ,Out_tot(Io) ,Net(Io) ,Io 
6070 lo_in=0 
6080 END IF 
6090 IP Lab_in=l THEN 
6100 L=Lab_ptr-l 
6110 OUTPUT @Lab_data;Lab_ 

time$(L) , Na ( L ) , Kl ( L ) , CI ( L ) ,Hco3(L) ,Ca(L) ,Hct(L) , 

Gluc(L) ,Dig(L) ,Pt(L) ,Ptt(L) ,Creat(L) ,Bun(L) ,L 

6120 Lab_in=0 

6130 END IF 

6140 IF Heart_in=l THEN 

6150 H=Heart_ptr-l 

6160 OUTPUT @Co_data;Heart_ 

time$(H) ,Ci(H) ,Pvri(H) ,Svri(H) ,H 

6170 Heart_in=0 

6180 END IF 

6190 IF Vent_in=l THEN 

6200 V=Vent_ptr-l 

6210 OUTPUT •§Vent_data;Vent_ 

time$(V) ,Rate(V) ,Fio2(V) ,Pp(V) ,Peep(V) ,Tv(V) , 
Ie_ratio$(V) ,Airp(V) ,Ph(V) ,Po2(V) ,Pco2(V) , 
Bgo3(V) ,Be(V) ,V 

6220 Vent_in=0 

6230 END IF 

6240 IF Drug_in=l THEN 

6250 D=Drug_ptr-l 

6260 OUTPUT @Drug_data;Drug_time$ (D) ,Drug_ 

name$ (D) ,Drug_dos$ (D) ,D 
6270 Drug_in=0 
6280 END IF 
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6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 



1 

1 continue with data collection 
1 

IP Numjefer_left<=0 THEN 
Halt_pg=l 
GOTO Eo_blk_xfer 

ELSE 

DISP Num_xfer_left; "transfers remaining" 
WAIT 3 

GOTO Blk_xfer 
END IF 

Eo_blk_xf er :End_time=TIMEDATE 
Delta_time=End_time-Start_time 
i 

• 

OUTPUT @Multi;"WF,3.2,0T" 
Stop_pacing=TIMEDATE 

i 

Abort er : ! 

ASSIGN @In_buffer TO * 

ASSIGN <§In_buffer2 TO * 

ASSIGN @Out_buffer TO * 

ASSIGN @Out_buffer2 TO * 

ASSIGN @Messages TO * 

ASSIGN §Temp_trend TO * 

ASSIGN §Hemo_data TO * 

ASSIGN §Io_data TO * 

ASSIGN @Lab_data TO * 

ASSIGN @Vent_data TO * 

ASSIGN @Co_data TO * 

ASSIGN @Drug_data TO * 

OUTPUT @Multi ; "CC, 3 ,5,6,10,11,12, 13T" 

OUTPUT @Multi; "CCST" 

CALL Completer ( "READY TO RESTART") 

CALL Pause r 

GRAPHICS OFF 

CALL Get_param 
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6660 
6670 
6680 
6690 
6700 
6710 

6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
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6820 
6830 
6840 
6850 
6860 
6870 
6871 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 



ASSIGN ^Messages TO 

"messglog:HP8290X, 7 00,1"; FORMAT OFF 
IF Num_pts=Q THEN GOTO Begin 
GOTO Setup_scan 
Diag : OUTPUT 723 ; "RV, 3 . 0 , 3 . 3T" 
ENTER 72306;C,C0 

PRINT "CURRENT/START CHANNEL" ;C, CO 
OUTPUT 723 ; "RV, 6.0,6.1,6.2,6. 3T" 

! checking control registers 
ENTER 72306 ;Counters(*) 
PRINT "COUNTERS=";Counters(*) 
STOP 

Purger : 1 

GRAPHICS OFF 
DELSUB Hpib_intr TO END 
PURGE "AOK:HP8290X, 700,1" 
PURGE "hrAOK:HP8290X, 700,1" 
PURGE "messglog:HP8290X, 700,1" 
PURGE "temp_trend:HP8290X, 700,1" 
PURGE "hemo_data:HP8290X, 700,1" 
PURGE "co_data:HP8290X, 700,1" 
PURGE " ven t_da ta : HP8 2 9 OX , 700,1" 
PURGE "lab_data:HP8290X, 700,1" 
PURGE "drug_data:HP8290X, 700,1" 
PURGE "io_data:HP8290X, 700,1" 
PURGE "sub_data:HP8290X, 700,1" 
STOP 

i 

• 

1 definitions for keys 
! 



35 



Move_msgs:l knob is processed here 
IF Msg_dp_request<>2 THEN RETURN 
Message_line=Message_line+KNOBX 

IF Message_line>Num_msgs-3 THEN Message_line=Num_ 
msgs-3 

6960 IF Message_line<0 THEN Message_line=0 
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6970 Msg_dp_request=3 
6980 RETURN 
6990 1 
7000 I 
5 7010 KeyO :Key_id=0 
7020 Edit_msg$= ,,,, 
7030 CALL Editor 
7040 Key_msg:Msg_pad$(Msg_pad_ 

pt r ) = "Time : " &TIME$ ( TIMEDATE ) & " "&Edit_msg$ 
10 7050 Msg_pad_ptr=Msg_pad_j?tr+l 

7060 DISP "only" ;1'0-Msg_pad_ptr; "more messages during 

this segment" 
7070 PRINT TABXY(1,18);" 

fl 

15 7080 PRINT TABXY (1,18); Edit_msg$ 
7090 WAIT 3 

7100 PRINT TABXY (1,18);" 

ii 

7110 PRINT TABXY ( 1,18 ) ; "Next transfer : " ;TIME$ (Next_ 
20 time) 

7120 GOTO Keyend 

7130 1 

7140 1 

7150 ! 
25 7160 Keyl:Chart_num=l 

!... input/output charting 

7170 IF Next_time-TIMEDATE<45 THEN 

7180 DISP "not enough time to enter data; wait for 

next xfer" 
30 7190 WAIT 2 

7200 GOTO Keyend 

7210 END IF 

7220 GRAPHICS OFF 

7230 PRINT CHR$(12) 
35 7240 Num_var=5 

7250 IF Io in=l THEN 
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7260 DISP "data in for this xfer; chart displayed" 

7270 WAIT 2 

7280 Io_ptr=Io_ptr-l 

7290 CALL Chart (Char t_num) 

5 7300 Io_ptr=Ic_ptr+l 

7310 GOTO Key end 

7320 ELSE 

7330 INPUT "Input values=l or display 
chart=2?",Inp 

10 7340 IP Inp=l THEN 

7350 IP IO_ptr>5 THEN 

7360 DISP "Do not enter more I/O data; 

disc full" 

7370 WAIT 3 

15 7380 GOTO Key end 

7390 ELSE 

7400 GOTO I_o 

7410 END IP 

7420 ELSE 

20 7430 CALL Chart (Char t_num) 

7440 GOTO Key end 

7450 END IF 

7460 END IP 

7470 Datal: 1 

25 7480 Io_time$(Io_ptr)=Io_msg$(Chart_num,l) 

7490 Iv_intake( Io_ptr )=FNLval( Io_msg$ (Chart_num, 2) ) 

7500 IP Iv_intake(Io_ptr) =9999. 999 THEN 

7510 Ionum=2 

7520 Fix_val=l 

30 7530 GOTO Data_edit 

7540 END IP 

7550 Pluid_in ( Io_ptr ) =FNLval ( Io_msg$ ( Chart_num, 3 ) ) 

7560 IP Fluid_in(Io_ptr) =9999. 999 THEN 

7570 Ionum=3 

35 7580 Fix_val=l 

7590 GOTO Data edit 
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76.00 END IP 

7610 Urine(Io_ptr)=FNLval{Iojnsg$(Chart_num,4) ) 

7620 IP Urine(Io_ptr) =9999. 999 THEN 

7630 Ionum=4 

5 7640 Fix_val=l 

7650 GOTO Data_edit 

7660 END IF 

7670 Chest(Io_ptr)=FNLval(ro_msg$(Chart_num, 5) ) 

7680 IP Chest(Io_ptr)=9999.999 THEN 

10 7690 Ionum=5 

7700 Fix_val=l 

7710 GOTO Data_edit 

7720 END IP 

7730 In_tot ( Io_ptr ) =Iv_intake ( Io_ptr ) +Fluid_in( Io_ptr ) 

15 7740 Out_tot(Io_ptr)=Urine(Io_ptr)+Chest(Io_ptr) 

7750 Net ( Io_ptr ) =In_tot ( Io_ptr ) -Out_tot ( Io_pt r ) 

7760 CALL Chart (Char t_num) 

7770 Io_ptr=Io_ptr+l 

7780 Io_in=l 

20 7790 Fix_val=0 

7800 GOTO Key end 

7810 ! 

7820 ! 

7830 Key2:Chart_num=2 

25 1 . . .ventilation charting 

7840 GRAPHICS OFF 

7850 PRINT CHR$(12) 

7860 IF Next_t ime— TIMEDATE<45 THEN 

7870 DISP "not enough time to enter data; wait for 

30 next xfer" . 

7880 WAIT 2 

7890 GOTO Key end 

7900 END IF 

7910 Num_var=13 

35 7920 IF Lab_in=l THEN 

7930 DISP "data in for this xfer; chart displayed" 
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7940 WAIT 2 

7950 Lab_ptr=Lab_ptr-l 

7960 CALL Chart (Char t_num) 

7970 Lab_ptr=Lab_ptr+l 

5 7980 GOTO Key end 

7990 -ELSE 

8000 INPUT "Input values=l or display 
chart=2?",Inp 

8010 IF Inp=l THEN 

10 8020 IF Lab_ptr>7 THEN 

8030 DISP "Do not enter more Lab data; 

disc full" 

8040 WAIT 3 

8050 GOTO Keyend 

15 8060 ELSE 

8070 GOTO I_0 

8080 END IF 

8090 ELSE 

8100 CALL Chart (Char t_num) 

20 8110 GOTO Keyend 

8120 END IF 

8130 END IF 

8140 Data2: ! 

8150 Lab_time$ (Lab_ptr )=Io_rasg$ (Chart_num,l) 

25 8160 Na(Lab_ptr)=FNLval(Io_msg$(Chart_num,2) ) 

8170 IF Na(Lab_ptr) =9999. 999 THEN 

8180 Ionum=2 

8190 Fix_val=l 

8200 GOTO Data_edit 

30 8210 END IF 

8220 Kl(Lab_ptr)=FNLval(lo_msg$(Chart_num,3) ) 

8230 IF Kl(Lab_ptr) =9999. 999 THEN 

8240 Ionum=3 

8250 Fix_val=l 

35 8260 GOTO Data_edit 

8270 END IF 
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8280 CI (Lab_ptr } =PNLval ( Io_msg$ (Chart_num, 4 ) ) 

8290 IP Gl(Lafa_ptr) =9999. 999 THEN 

8300 Ionum=4 

8310 Fix_val=l 

5 8320 GOTO Data_edit 

8330 END IF 

8340 Hco3(Lab_ptr)=PNLval(Io_msg$(Chart_num,5) ) 

8350 IF Hco3(Lab_ptr) =9999. 999 THEN 

8360 Ionum=5 

10 8370 Fix_val=l 

8380 GOTO Data_edit 

8390 END IF 

8400 Ca(Lab_ptr)=FNLval(Io_msg$(Chart_num,6) ) 

8410 IF Ca(Lab_ptr) =9999. 999 THEN 

15 8420 Ionum=6 

8430 Fix_val=l 
8440 . . GOTO Data_edit 

8450 END IF 

8460 Hct (Labjptr ) =FNLval ( l.o_msg$ (Chart_num,7 ) ) 

20 8470 IF Hct (Lab_ptr) =9999. 999 THEN 

8480 Ionum=7 

8490 Fix_val=l 

8500 GOTO Data_edit 

8510 END IF 

25 8520 Glue (Lab_ptr)=FNLval(lo_msg${ Char t_num,8) ) 

8530 IF Glue (Lab_ptr) =9999. 999 THEN 

8540 Ionum=8 

8550 Fix_val=l 

8560 GOTO Data_edit 

30 8570 END IP 

8580 Dig(Lab_ptr)=FNLval(Io_msg$(Chart_nuin,9) ) 

8590 IF Dig (Lab_ptr) =9999. 999 THEN 

8600 Ionum=9 

8610 Fix_val=l 

35 8620 GOTO Data_edit 

8630 END IF 
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8640 Pt(Lab_ptr )=FNLval(Io_msg$(Chart_num,10) ) 

8650 IP Pt(Lab_ptr) =9999. 999 THEN 

8660 Ionum=10 

8670 Fix_val=l . 

5 8680 GOTO Data_edit 

8690 END- IF 

8700 Ptt ( Lab_ptr ) =FNLval ( Io_msg$ ( Char t_num, 11 ) ) 

8710 IF Ptt(Lab_ptr)=9999.999 THEN 

8720 Ionum=ll 

10 8730 Fix_val=l 

8740 GOTO Data^edit 

8750 END IF 

8760 Creat ( Lab_pt r ) =FNLval ( Io_msg$ { Char t_num, 12 ) ) 

8770 IF Creat (Lab_ptr) =9999 .999 THEN 

15 8780 Ionum=12 

8790 Fix_val=l 

' 8800 GOTO Data_edit 

8810 END IF 

8820 Bun ( Lab_ptr ) =FNLval ( Io_msg$ ( Chart_num r 13 ) ) 

20 8830 IF Bun(Lab_ptr)=9999.999 THEN 

8840 Ionum=13 

8850 Fix_val=l 

8860 GOTO Data_edit 

8870 END IF 

25 8880 CALL Chart (Char t_num) 

8890 Labjptr=Lab_ptr+l 

8900 Lab_in=l 

8910 Fix_val=0 

8920 GOTO Key end 

30 8930 I 

8940 ! 

8950 Key3 :Chart_num=4 

I .. .hemodynamic graphics 

8960 IF Next_time-TIMEDATE<45 THEN 

35 8970 DISP "not enough time to enter data; wait for 

next xfer" 
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8980 



8990 



END 



WAIT 2 
GOTO Keyend 
IP 



10 



15 



20 



25 



30 



9010 GRAPHICS OFF 

9020 PRINT CHR$(12) 

9030 INPUT "Blood pressures ( 1 ) or cardiac 

indices ( 2) ?",Bp 

9040 IF Bp=l THEN 
9050 Num_var=9 

9060 ELSE 
9070 Fst=10 
9080 Num_var=13 

9090 END IF 

9100 IF Pres_in=l AND Bp=l THEN 

9110 DISP "data in for this xfer; chart displayed" 

9120 WAIT 2 

9130 Pres_ptr=Pres_ptr-l 

9140 IF Heart_in=l THEN Heart_ptr=Heart_ptr-l 

9150 CALL Chart (Chart_num) 

9160 IF Heart_in=l THEN Heart_ptr=Heart_ptr+l 

9170 Fres_ptr=Pres_ptr+l 
9180 GOTO Keyend 

9190 ELSE 

9200 IF Heart_in=l AND Bp=2 THEN 

9210 DISP "data in for this xfer; chart 



9280 



9240 



9250 



9260 



9270 



displayed" 
WAIT 2 

IF Pres_in=l THEN Pres_ptr=Pres_ptr-l 

Heart_ptr=Heart_ptr-l 

CALL Chart (Chart_num) 

Heart_ptr-Heart_ptr+1 

IF Pres_in=l THEN Pres_ptr=Pres_ptr-l 

GOTO Keyend 



9290 



ELSE 



WO 86/07248 



PCT/US86/01193 



- 107 - 



9300 INPUT "Input values=l or display 

chart=2?" ,Inp 

9310 IP Inp=l THEN 

9320 IP Bp=l AND Pres_ptr>17 THEN 

5 9330 DISP "Do not enter more Pressure 

data; disc full" 

9340 WAIT 3 

9350 GOTO Key end 

9360 ELSE 

10 9370 GOTO I_o 

9380 END IP 

9390 ELSE 

9400 IF Heart_in=l THEN Heart_ptr=Heart_ 

ptr-1 

15 9410 IF Pres_in=l THEN Pres_ptr=Pres_ptr-l 

9420 CALL Chart (Char t_num) 

9430 IF Heart_in=l THEN Heart_ptr=Hear.t_ 

ptr+1 

9440 IF Pres_in=l THEN Pres_ptr=Pres_ptr+l 

20 9450 GOTO Key end 

9460 END IP 

9470 END IF 

9480 END IF 

9490 Data4: ! 

25 9500 IF Bp=l THEN 

9510 P r e s_ t ime $ ( P r e s_p t r ) = I o_ms g $ ( Cha r t_num , 1 ) 

9520 Ao_s<Pres_ptr)=FNLval(Io_msg$(Chart_nuin,2) ) 

9530 IF Ao_s(Pres_ptr) =9999. 999 THEN 

9540 Ionum=2 

30 9550 Fix_val=l 

9560 GOTO Data_edit 

9570 END IF 

9580 Ao_d(Pres_ptr )=FNLval(Io_msg$(Chart_num,3) ) 

9590 IF Ao_d ( Pres_ptr ) =9999 . 999 THEN 

35 9600 Ionum=3 

9610 Fix val=l 
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9620 GOTO Data_edit 

9630 END IF 

9640 Ao_m(Pres_ptr )=FNLval( Io_rasg$ (Chart_num, 4) ) 

9650 IF Ao_m(?res_ptr) =9999 .999 THEN 

5 9660 Ionum=4 

9670 Fix_val=l 

9680 GOTO Data_edit 

9690 END IF 

9700 Pa_s { Pres_ptr ) =FNLval ( Io_msg$ ( Char t_num, 5 ) ) 

10 9^L0 IF Pa_s(Pres_ptr) =9999. 999 THEN 

9-720 Ionum=5 

9730 Fix_val=l 

9740 GOTO Data_edit 

9750 END IF 

15 9760 Pa_d(Fres_ptr)=FNLval(Io_msg$(Chart_nuni,6) ) 

9770 IF Pa_d(Pres_ptr) =9999. 999 THEN 

9780 Ionum=6 

9790 Fix_val=l 

9800 GOTO Data_edit 

20 9810 END IF 

9820 Pa_m(Pres_ptr)=FNLval(Io_msg$(Chart_num,7) ) 

9830 IF Pa_m(Pres_ptr)=9999.999 THEN 

9840 Ionum=7 

9850 Fix_val=l 

25 9860 GOTO Data_edit 

9870 END IF 

9880 La_m(Pres_ptr)=FNLval(Io_msg$(Chart_nuni,a) ) 

9890 IF La_m(Pres_ptr) =9999. 999 THEN 

9900 Ionum=8 

30 9910 Fix_val=l 

9920 GOTO Data_edit 

9930 END IF 

9940 Ra_m(Pres_ptr)=PNLval(Io_rasg$(Chart_num,9) ) 

9950 IF Ra_m(Pres_ptr) =9999. 999 THEN 

35 9960 Ionum=9 

9970 Fix val=l 
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9980 
9990 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
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10170 
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10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
• 10310 
10320 
10330 



GOTO Data_edit 
END IF 

IP Heart_in=l THEN Heart_ptr=Heart_ptr-l 
CALL Chart (Char t_num) 

IP Heart_in=l THEN Heart_ptr=Heart_ptr+l 

Pres_ptr=Pres_ptr+l 

Pres_in=l 

Fix_val=0 

GOTO Keyend 



ELSE 



Hear t_time$ (Hear t_ptr ) =Io_msg$ ( Chart_num, 10 ) 
Ci ( Heart_ptr ) =FNLval ( Io_msg$ ( Chart_num, 11 ) ) 
IP Ci(Heart_ptr) =9999. 999 THEN 

Ionum=ll 

Fix_val=l 

GOTO Data_edit 
END IF 

Pvr i ( Hear t_ptr ) =FNLval ( Io_msg$ ( Char t_num, 12 ) ) 
IF Pvri(Heart_ptr) =9999. 999 THEN 

Ionum=12 

Fix_val=l 

GOTO Data_edit 
END IP 

Svri ( Heart_ptr ) =FNLval ( Io_msg$ ( Chart_num, 13 ) ) 
IF Svri (Heart_ptr)=9999. 999 THEN 

Ionum=13 

Fix_val=l 

GOTO Data_edit 
END IP 

IP Pres_in=l THEN Pres_ptr=Pres_ptr-l 

CALL Chart (Chart _num) 

IF Pres_in=l THEN Pres_ptr=Pres_ptr+l 

Heart_ptr=Heart_ptr+l 

Heart_in=l 

Fst=l 

Fix val=0 
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10340 END IP 

10350 GOTO Key end 

10360 1 

10370 I 

5 10380 Key4:Key_id=4 

10390 IF Trend_dp=0 THEN 

10400 ALLOCATE INTEGER Spectra ( 7499) 

10410 GSTORE Spectra(*) 

10420 Trend_dp=2 

10 10430 Topl=200 

10440 Top2=2.5 

10450 Bot2=-2.5 

10460 Top3=10 

10470 Top4=10 

15 10480 CALL Trend_graph 

10490 ELSE 

10500 IP Trend_dp=2 THEN 

10510 GRAPHICS ON 

10520 GLOAD Speetra(*) 

20 10530 DEALLOCATE Spectra(*) 

10540 CALL Offgraph 

10550 Trend_dp=0 

10560 ELSE 

10570 Trend_dp=2 

25 10580 Topl=200 

10590 Top2=2.5 

10600 Bot2=-2.5 

10610 Top3=10 

10620 Top4=10 

30 10630 CALL Trend_graph 

10640 END IF 

10650 END IP 

10660 GOTO Keyend 

10670 ! 

35 10680 ! 

10690 Key5:Key_id=5 
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1... display message file 
10700 IP Msg_dp_request<2 THEN 
10710 DISP "messages will be recalled soon" 

10720 Msg_dp_request=l 
5 10730 WAIT 1 

10740 ELSE 

10750 Msg_dp_request=3 
10760 END IP 
10770 GOTO Key end 
10 10780 ! 
10790 ! 

10800 Key6:Key_id=6 "..premature program 

termination 

10810 DISP "To halt program hit KEY 6 again (within 10 
15 sec)" 

10820 ON TIME ( TIMEDATE+10 ) MOD 86400 , 4 GOTO Keyend 

10830 ON KEY 6,3 GOTO Halter 

10840 Cancel_wait:GOTO Cancel_wait 

10850 Halter :Num_xfer_left=l 
20 10860 Halt_pg=l 

10870 GOTO Key_msg 

10880 ! 

10890 ! 

10900 Key7 :Chart_num=3 
25 10910 IF Nex t_t ime-TIMEDATE< 4 5 THEN 

10920 DISP "not enough time to enter data; wait for 

next xfer" 

10930 WAIT 2 

10940 GOTO Keyend 

30 10950 END IF 

10960 GRAPHICS OFF 

10970 PRINT CHR$(12) 

10980 Num_var=13 

10990 IF Vent_in=l THEN 
35 11000 DISP "data in for this xfer; chart displayed" 

11010 WAIT 2 
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11020 Vent_ptr=Vent_ptr-l 

11030 CALL Chart (Chart_num) 

11040 Vent_ptr=Vent_ptr+l 

11050 GOTO Keyend 

5 11060 ELSE 

1107O INPUT "Input values=l or display 

chart=2?" ,Inp 

11080 IF Inp=l THEN 

11090 IP Vent_ptr>7 THEN 

10 11100 DISP "Do not enter more Vent data; 

disc full" 

11110 WAIT 3 

11120 GOTO Keyend 

11130 ELSE 

15 11140 GOTO I_o 

11150 END IF 

11160 ELSE 

11170 CALL Chart ( Char t_num) : 

11180 GOTO Keyend 

20 11190 END IF 

11200 END IF 

11210 Data3:! 

11220 Vent_time$ ( Vent_ptr ) =Io_msg$ (Chart_num, 1) 

11230 Rate(Vent_ptr)=FNLval(Io_rasg${Chart_num,2) ) 

25 11240 IF Rate (Vent_ptr) =9999. 999 THEN 

11250 Ionum=2 

11260 Fix_val=l 

11270 GOTO Data_edit 

11280 END IF 

30 11290 Fio2(Vent_ptr)=FNLval(Io_msg${Chart_num,3) ) 

11300 IF Fio2(Vent_ptr) =9999. 999 THEN 

11310 Ionum=3 

11320 Fix_val=l 

11330 GOTO Data_edit 

35 11340 END IF 

11350 pp( vent_ptr ) =FNLval ( Io_msg$ ( Chart_num, 4) ) 
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11360 IF Pp(Vent_ptr)=9999.999 THEN 

11370 Ionum=4 

11380 Fix_val=l 

11390 GOTO Data_edit 

5 11400 END IP 

11410 Peep ( Vent_ptr ) =PNLval ( Io_msg$ { Char t_num, 5 ) ) 

11420 IF Peep(Vent_ptr) =9999. 999 THEN 

11430 Ionum=5 

11440 Fix_val=l 

10 11450 GOTO Data_edit 

11460 END IF 

11470 Tv( Vent_ptr ) =FNLval ( Io_msg$ ( Chartjium, 6 ) ) 

11480 IF Tv(Vent_ptr) =9999 -999 THEN 

11490 Ionum=6 

15 11500 Fix_val=l 

11510 GOTO Data_edit 

11520 END IF 

11530 le_ratio$(Vent_ptr)=Io_msg$(Chart_num # 7) 

11540 Airp ( Vent_ptr ) =FNLval { Io_msg$ ( Char t_num, 8 ) ) 

20 11550 IF Airp(Vent_ptr) =9999. 999 THEN 

11560 Ionum=8 

11570 Fix_val=l 

11580 GOTO Data_edit 

11590 END IF 

25 11600 Ph(Vent_ptr)=FNLval(Io_msg$(Chart_num f 9) ) 

11610 IF Ph(Ventj?tr) =9999. 999 THEN 

11620 Ionum=9 

11630 Fix_val=l 

11640 GOTO Data_edit 

30 11650 END IF 

11660 Po2 ( Vent_ptr ) =FNLval ( Io_msg$ (Chartjium, 10 ) ) 

11670 IF Po2(Vent_ptr) =9999. 999 THEN 

11680 Ionum=10 

11690 Fix_yal=l 

35 11700 GOTO Data_edit 

11710 END IF 
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11720 Pco2 ( Vent_ptr ) =FNLval ( lo_msg$ ( Char t_num, 11 ) ) 

11730 IF Pco2(Vent_ptr) =9999. 999 THEN 

11740 Ionum=ll 

11750 Fix_val=l 

11760 GOTO Data_edit 

11770 END IF 

11780 Bgo3(Vent_ptr)=FNLval(lo_msg$(Chart_num,12) ) 

11790 IF Bgo3(Vent_ptr) =9999. 999 THEN 

11800 Ionum=12 

11810 Fix_val=l 

11820 GOTO Dafca_edit 

11830 END IF 

11840 Be(Vent_ptr)=FNLval(Io_msg$(Chart_nuni,13) ) 

11850 IF Be(Vent_ptr)=9999.999 THEN 

11860 Ionum=13 

11870 Fix_val=l 

11880 GOTO Data_edit 

11890 END IF 

11900 CALL Chart (Chart_num) 

11910 Vent_ptr=Vent_ptr+l 

11920 Vent_in=l 

11930 Fix_val=0 

11940 GOTO Keyend 

11950 ! 

11960 ! 

11970 Key 8 : Cha r t_n'um= 5 

11980 IF Nex t_t ime-TIMEDATE< 45 THEN 

11990 DISP "not enough time to enter data; wait for 

next xfer" 
12000 WAIT 2 

12010 GOTO Keyend 

12020 END IF 
12030 GRAPHICS OFF 
12040 PRINT CHR$(12) 
12050 Num_var=3 
12060 IF Drug_in=l THEN 
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12070 DISP "data in for this xfer; chart displayed" 

12080 WAIT 2 

12090 Drug_ptr=Drug_ptr-l 

12100 CALL Chart ( Char t_num) 

5 12110 Drug_ptr=Drug_ptr+l 

12120 GOTO Keyend 

12130 ELSE 

12140 INPUT "Input values=l or display 
chart=2?" ,Inp 

10 12150 IF lnp="l THEN 

12160 IF Drug_ptr>38 THEN 

12170 DISP "Do not enter more Drug data? 

disc full" 

12180 WAIT 3 

15 12190 GOTO Keyend 

12200 ELSE 

12210 GOTO I_o 

12220 END IF 

12230 ELSE 

20 12240 CALL Chart { Char t_num) 

12250 GOTO Keyend 

12260 END IF 

12270 END IF 

12280 Data5: 1 

25 12290 Drug_time$(Drug_ptr )=Io_msg$(Chart_num,3) 

12300 D r ug_name $ ( Dr ug_p t r ) = I o_msg $ ( Cha r t_num , 1 ) 

12310 D r ug_dos $ ( Dr ug_p t r ) = I o_ms g $ ( Cha r t_num , 2 ) 

12320 CALL Chart (Chart_num) 

12330 Drug_ptr=Drug_ptr+l 

30 12340 Drug_in=l 

12350 GOTO Keyend 

12360 ! 

12370 ! 

12380 Key9:Key_id=9 

35 12390 Bp_graph: ! 

12400 IF Next time-TIMEDATE<12 THEN GOTO Waiterl 
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12410 IF Trend_dp=0 THEN 

12420 Trend_dp=l 

12430 Topl=150 

12440 Top2=75 

5 12450 Bot2=0 

12460 Top3=50 

12470 Top4=50 

12480 ALLOCATE INTEGER Spectra ( 7499 ) 

12490 GSTORE Spectra(*) 

10 12500 CALL Trend_graph 

12510 ELSE 

12520 IF Trend_dp=l THEN 

12530 GRAPHICS ON 

12540 GLOAD Spectra("*) 

15 12550 DEALLOCATE Spectra(*) 

12560 CALL Offgraph 

12570 Trend_dp=0 

12580 ELSE 

12590 Trend_dp=l 

20 12600 Topl=150 

12610 Top2=75 

12620 Bot2=0 

12630 Top3=50 

12640 Top4=50 

25 12650 CALL Trend_graph 

12660 END IF 

12670 END IF 

12680 GOTO Keyend 

12690 ! 

30 12700 i 

12710 I_o:i 

12720 IF TIMEDATE>Next_t ime-20 THEN 

12730 DISP "not enough time to enter data; wait for 
next xfer" 

35 12740 WAIT 2 

12750 GOTO Keyend 
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12760 END IP 

12770 PRINT TABXY(1,1) ;" enter values" 
12780 FOR I=Pst TO Num var 



12790 PRINT TABXY(1,17) " 

5 12800 PRINT TABXY( 1,17) ;Io$( Char t_num, I) 

12810 Edit_msg$="" 

12820 CALL Editor 

12830 Io_msg$ (Chart__num,I)=Edit__msg$ 

12840 PRINT TABXY(l,I+2) ; Io$ (Chart_num, I ) ;"=";Io 

10 msg$(Chart_num,I) 



12850 NEXT I 

12860 PRINT TABXY(1,17) ; " 

12870 PRINT TABXY(1,18) ;" " 

128801 

15 12890! ... .editting the data 
12900! 

12910 Io_fix:DISP "Do you want to edit I/O 

values? ( Y/N ) " 

12920 ENTER 2;Ans$ 
20 12930 DISP " 

12940 IF Ans$="Y" OR Ans$="y*' THEN 

12950 IP TIMEDATE>Nex t_t ime— 15 THEN 

12960 DISP "not enough time; data not stored; 

retry next xfer" 
25 12970 GOTO Keyend 

12980 END IP 

12990 ON Chart_num GOTO Value, Lab, Vent ,Pres , Drug 

13000 Value: DISP "which value? l=time, 2=maint. fluid, 

3=other fluids, 4=urine, 5=chest" 
30 13010 ENTER 2;Ionum 

13020 IP lonura<l OR Ionum>5 THEN GOTO Value 

13030 GOTO Data_edit 

13040 Lab: DISP "which value? 

l=time , 2=Na , 3=K , 4=C1 , 5=HC03 , 6=Ca , 7=Hct , 8=Gluc , 9=Di 
35 g , 10=PT, 11=PTT, 12=Creat , 13=Bun" 

130 50 ENTER 2 ; Ionum 
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13060 
13070 
13080 



13090 

13100 
13110 
13120 
13130 
13140 



13150 
13160 

13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
13260 
13270 

13280 
13290 
13300 
13310 
13320 
13330 
13340 



IF Ionum<l OR Ionum>13 THEN GOTO Lab 
GOTO Data_edit 
Vent: PRINT TABXY (1,17); "which value? 

l=t irae , 2=rate, 3=FI02 , 4=PP , 5=peep , 6=TV, 
7=1 :E, 8=airway" 
PRINT TABXY (1,18) ; 
" 9=ph , 10=pO2 , ll=pC02 , 12=HC03 , 13=Be " 
ENTER 2;Ionum 

IF Ionum<l OR Ionum>13 THEN GOTO Vent 
GOTO Data_edit 
Pres:IF Bp=l THEN 

PRINT TABXY( 1, 17 ); "which value? l=pres 
time , 2=ao/s , 3=ao/d , 4=ao/m, 
5=pa/s,6=pa/d,7=pa/m,8=la,9=ra" 

ELSE 

PRINT TABXY (1, 18 ) ; "which value? 10=heart 
time , ll=c. i . , 12-pvri , 13=svr i " 
END IF 

ENTER 2;Ionum 

IF Tonum<l OR Ionum>13 THEN GOTO Pres 
GOTO Data_edit 
Drug:DISP "which value? l=name,2=dosage,3=time" 
ENTER 2;Ionum 

IF Ionum<l OR Ionum>10 THEN GOTO Drug 
GOTO Data_edit 
Data_edit : 1 ' 

IF TIMEDATE>Next_time-15 THEN 

DISP "not enough time; data not stored; 

retry next xfer" 

WAIT 2 

GOTO Keyend 
END IF 

C_num=Cha r t_num 
R_num=2 

IF Fix_val=l THEN 

PRINT TABXY (1, 17 ) ;"Error on input; enter 
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15 
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25 



30 



35 



13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 

13430 
13440 
13460 
13470 
13480 

13490 
13500 
13510 
13520 
13530 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 



value again" 

PRINT TABXY { 1 , 18 ) ; Io$ { C_num, Ionum) 
END IF 

PRINT TABXY (1,18); Io_msg$ ( C_num f Ionum) 
Edit_msg$=Io_msg$ ( C_nura , Ionum ) 
CALL Editor 

Io_msg$ { C_num, Ionum) =Edi t_msg$ 
PRINT TABXY (l,Ionum+R_num)';" " 
PRINT TABXY ( 1 , Ionum+R_num ) ; Io$ ( C_ 
num, Ionum) ; "=" ;Edit_msg$ 
PRINT TABXY (1,17);" " 
PRINT TABXY ( 1 , 18 ) ; " " 
GOTO Io_fix 

ELSE 

ON Chart_num GOTO 

Datal,Data2,Data3, Data4,Data5 

END IF 
Keyend:OFF TIME 
OFF KBD 
RETURN 
END 



! 



i 

SUB Pauser 

DISP "press CONTINUE to continue" 

PAUSE 

DISP 
SUBEND 



! 
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13690 SUB Get_param 

13700 COM /Multi__param/ Start_chan,Stop_chan,Pacing_ 

bits,Pacing_rate,Num_pt 
s r Num_xf er , Num_xf er_lef t ,Name_len, Scr_ 
5 file$[28] ,Scr_ 

file2$[28] 

13710 COM /Messagecom/ Message$(10) [80] ,@Messages 

13720 COM /Trends/ Mean_hr_t ( *) ,Lfa_t ( * ) ,Rf a_ 

t(*) ,Ratio_t(*) ,T_ptr,Time_now 
10 l,Meas_resp_t( *) ,Trend_dp 

13730 COM /Vitaldata/ Rfa,Lf a,Peakratio,Meas_ 

resp,Next_time 
13740 COM /Pressure/ 

Topi , Top2 , Top3 , Top4 , Botl , Bot 2 , Bot3 , Bot 4 
15 13750 COM /Pres_chart/ Pres_time$ ( *) , Ao_s ( * ) ,Ao_ 

d ( * ) , Ac_m( * ) , Pa_s ( * ) , Pa_d ( * 
) ,Pa_m(*) ,La_m(*) ,Ra_m{*) ,Pres_ptr ,Pres__in 
13760 COM /Subject/ Sub_name$ [ 25 ] , Hos_num$ [ 15 ] , Id_ 

age$ [ 10 ] , Id_wt$ [ 10 ] , Id_ht 
20 $[10] ,Diag$[30] ,Opera$[45] ,Halt_pg 

13770 COM /Io_chart/ Io_time${*) , Iv_intake(*) ,Fluid_ 

in(*) ,In_tot(*) rUrinef* 
) ,Chest(*) ,Out_tot(*) ,Net(*) ,Io_ptr 
13780 COM /Lab_chart/ Lab_ 

25 time$(*),Na(*) ,K1(*) ,C1(*) ,Hco3(*) , 

Ca(*),Hct(*) ,Gluc(*),Dig(*),Pt(*} , 
Ptt(*) /Creat(*) ,Bun(*) ,Lab_ptr 
13790 COM /Vent_chart/ Vent_ 

time$(*) ,Rate(*) ,Fio2(*) ,Pp(*) ,Peep(*) ,Tv(*) , Ie 
30 _ratio$( *) ,Airp(*) ,Ph(*) ,Po2(*) ,Pco2(*) , 

Bgo3(*) ,Be(*) ,Vent_ptr 
13800 COM /Heart_index/ Heart_ 

time$(*) ,Ci(*) ,Pvri(*) ,Svri(*) /Heart_ptr 
13810 COM /Drugs/ Drug__time$ ( * ) ,Drug_name$(*) ,Drug_ 

35 dos$ ( *) ,Drug_ptr 

13820 DIM Mo$[24] 
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.quit 



13830 Mo$ = *' JAFBMRAPMY JN JL AUSPOCNODC " 

13840 ! INTEGER Idjauf f er ( 255 ) BUFFER 
13850 Disk_name$=":HP8290X, 700,1" 

13860 IF Halt_pg=l THEN GOTO Purger_get ! . • 

5 program 
13870 ! 

13880 ! change soft key messages 
13890 ! 

13900 Oldmsg: PRINT CHR$(12) 
10 13910 PRINT "These are the current soft key 

messages: " 
13920 FOR 1=0 TO 9 

13930 PRINT "KEY" ; I; " : " ;Message$ ( I ) 

13940 NEXT I 

15 14100 DISP "Press cont when ready to continue" 

14110 PAUSE 
141201 

14130 INPUT "Enter sub ject . name, 10 chars (Doe if 

unknown ) " , Sub_name$ 
20 14140 Sub_name$=Sub_name$[l,10] 

14150 INPUT "Enter hospital number, 8 chars (00 if 

unknown ) : " , Hos_num$ 
14160 Hos_num$=Hos_num$[l,8 ] 

14170 INPUT "Enter subject age(00 if unknown) :", Id_ 

25 age$ 

14180 INPUT "Enter subject weight, kg (00 if 

unknown ) : " , Id_wt$ 
14190 INPUT "Enter subject height, cm (00 if 

unknown) : " , Id_ht$ 
30 14200 INPUT "Enter diagnosis, 10 chars (Unk if 

unknown) : " ,Diag$ 
14210 Diag$=Diag$ [1,10] 

14220 INPUT "Enter operation, 15 chars (Unk if 

unknown) : " ,Opera$ 
35 14230 Opera$=Opera$ [1,15] 

14240! 
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14250 Ch_sel: ! 
14260 Start_chan=0 
14270 Stop_chan=0 
14280 1 

5 14290 Pacing_bits=0 
14300 Pacing_sel:l 
14310 Base$="M" 
14320 Pacing_bits=261 
14330 ! 

10 14340 Base$=Base$& ,, SEC" 
14350 ! 
14360 ! 

14370 ! FINDOUT BLOCKS I ZE FOR DATA TRANSFER 
14380 ! 

15 14390 Num_xfer=55 
14400! 

14410! since new data is to be taken, zero the trend 
graphs (120 pts=8hrs) 





14420! 








20 


14430 


MAT 


Mean_: 


hr_t= (0) 




14440 


MAT 


Rfa_t 


= (0) 




14450 


MAT 


Lfa_t 


= (0) 




14460 


MAT 


Ratio 


_t= (0) 




14470 


MAT 


Meas_ 


resp_t= (0) 


25 


14471 


MAT 


Trans 


_time= (0) 




14480 


T_ptr=0 






14490 


MAT 


Pres_ 


time$= ("") 




14500 


MAT 


Ao_s= 


(0) 




14510 


MAT 


Ao_d= 


(0) 


30 


14520 


MAT 


Ao_m= 


(0) 




14530 


MAT 


Pa_s= 


(0) 




14540 


MAT 


Pa_d= 


(0) 




14550 


MAT 


Pa_m= 


(0) 




14560 


MAT 


La_m= 


(0) 


35 


14570 


MAT 


Ra_m= 


(0) 




14580 


MAT 


Io_time$= ("") 
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14590 


MAT 




14600 


MAT 




14610 


MAT 




14620 


MAT 


5 


14630 


MAT 




14640 


MAT 




14650 


MAT 




14660 


MAT 




14670 


MAT 


10 


14680 


MAT 




14690 


MAT 




14700 


MAT 




14710 


MAT 




14720 


MAT 


15 


14730 


MAT 




14740 


MAT 




14750 


MAT 




14760 


MAT 




14770 


MAT 


20 


14780 


MAT 




14790 


MAT 




14800 


MAT 




14810 


MAT 




14820 


MAT 


25 


14830 


MAT 




14840 


MAT 




14850 


MAT 




14860 


MAT 




14870 


MAT 






MAI 




14890 


MAT 




14900 


MAT 




14910 


MAT 




14920 


MAT 


35 


14930 


MAT 




14940 


MAT 
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Iv_intake= (0) 
Fluid_in= (0) 
ln_tot= (0) 
Urine= (0) 
Chest= (0) 
Out_tot= (0) 
Net= (0) 
Lab_time$= ("") 
Na= (0) 
Kl= (0) 
CI- (0) 
Hco3= (0) 
Ca= (0) 
Hct= (0) 
Gluc= (0) 
Dig= (0) 
Pt= (0) 
Ptt= (0) 
Creat= (0) 
Bun= (0) 

Vent_time$= ("") 
Rate= (0) 
Pio2= (0) 
Pp= (0) 
Peep= ( 0 ) 
Tv= (0) 

Ie_ratio$= ("") 
Airp= (0) 
Ph= (0) 
Po2= (0) 
Pco2= (0) 
Bgo3= (0) 
Be= (0) 

Heart_fcime$= ("") 
Ci= (0) 
Pvri= (0) 
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14950 MAT Svri= (0) 

14960 MAT Drug_time$= ("") 

14970 MAT Drug_name$= (""7 

14980 MAT Drug_dos$= ("") 

14990 Pres_ptr=0 

15000 Trend_ptr=0 



10 



15 



20 



25 



30 



35 



15010 

15020 
15030 
15040 
15050 
15060 
15070 
15080 
15090 
15100 
15110 
15120 
15130 
15140 
15150 
15160 
15170 
15180 
15190 
15200 
15210 
15220 
15230 
15231 
15240 
15250 
15260 



Ratio_t(0)=l !.. prevent trend graph errors on 

startup 

Rfa=0 

Lfa=0 

Meas_resp=0 
Peakratio=l 



■ Pacing_rate=250 
Num_pt s-1 0 2 4 *Num_xf er 
Num_heade r = 2 5 6 + 8 *Num_xf e r 
IF Scr_file$="?" THEN GOTO Skipl 
Purger_get:DISP "PURGE FILE?" 
ENTER 2;Resp$ 

IF Resp$="Y" OR Resp$="YES" THEN 
PURGE Scr_file$ 
PURGE Scr_file2$ 
PURGE "mes sglog : HP8 29 OX , 7 0 0 , 1 " 
PURGE " t emp_t r end : HP8 29 OX ,700,1" 
PURGE " hemo_da t a : HP8 2 9 0 X r 7 0 0 , 1 " 
PURGE "io_data:HP8290X,700,l" 
PURGE " dr ug_da ta : HP8 2 9 0 X , 7 0 0 , 1 " 
PURGE " lab_da t a : HP 8 2 9 0 X , 700,1" 
PURGE " co_da ta : HP8 2 9 OX , 7 0 0 , 1 " 
PURGE " sub_da ta : HP 8 2 9 OX , 7 0 0 , 1 " 

ELSE 



I the data files are named according to the date 



WO 86/07248 



PCT/US86/01193 



- 125 - 

15270! in the following format: 
15280! xxxxmmddyy 
15290! where 

15300! xxxx - resp,hr ,msgs, errs, trnd 

5 15310! dd - day 

. 15320! mm - month 

( JA, FB/MRfAP/MY, JN f JL, AU r SP/OC/NO/DC) 
15330! yy - year 

15340 Date_now$=DATE$ ( TIMEDATE) 

10 15350 Month_now=FNMonth(Date_now$)*2-l 
15360 Mm$=Mo$ [Month_now; 2 ] 

15370 Id_f ield$=Date_now$ [1; 2 ] &Mm$&Date_ 

now$[10;2] 

15380! new name for respiratory file: respddmmyy 
15 15390 RENAME Scr_file$ TO " resp"&Id_f ield$&Disk_ 

name$ 

15400! new name for heart rate file: hr ddmmyy 

15410 RENAME Scr_file2$ TO "hr "&Id_ 

f ield$$Disk_name$ 

20 15420! new name for message log: msgsddmmyy 

15430 RENAME "messglog:HP8290X, 700 , 1" TO 

"msgs n &Id_field$&Disk_nanie$ 
15440! new name for hemo data: dataddmmyy 
15450 RENAME "hemo_data :HP8290X, 700 , 1" TO 

25 "hemo ,, &Id_field$&Disk_name$ 
15460! new name for io data 

15470 RENAME "io_data:HP8290X,700, 1" TO "io 

"&Id_field$&Disk_name$ 
15480! new name for lab data 
30 15490 RENAME "lab_data:HP8290X,700 ,1" TO "lab_ 

"&Id_f ield$&Disk_name$ 
15500! new name for vent data 

15510 RENAME "vent_data :HP8290X, 700 , 1" TO 

,, vent"&Id_field$&Disk_name$ 
35 15520! new name for co data 

15530 RENAME "co data : HP8290X , 700 , 1" TO "co 
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"&Id_field$&Disk_name$ 
155401 new name for drug data 

15550 RENAME "drug_data:HP8290X,700 ,1" TO 

"drug"&Id_f ield$&Disk_name$ 
5 15551! new name for subject data 

15552 RENAME "sub_data:HP8290X,700, 1" TO "sub_ 

"&Id_f ield$&Disk_name$ 
15560! name for trend summary file; trndddmmyy 
15570 PURGE "temp_trend:HP8290X, 700,1" 

10 15580 CREATE BDAT "trnd"&Id_f ield$&Disk_ 

name$, 19, 256 
15590 ASSIGN §Trend_file TO "trnd"&Id_ 

field$&Disk_name$; FORMAT OFF 
15600 OUTPUT @Trend_f ile;Mean_hr_t ( * ) ,Lfa_ 

15 t(*) ,Rfa_t(*) ,Ratio_t(*) ,Meas 

_resp_t(*) ,Trans_time(*) ,T_ptr 
15610 ASSIGN @Trend_file TO * 

15620 END IF 

15630" IF Halt_pg=l THEN !. .terminate program 

20 15640 DISP "PROGRAM COMPLETED" 

15650 STOP 
15660 END IF 

15670 Skipl:DISP 

15680 Scr_file$="AOK"&Disk_name$ 
25 15690 Num_rec=-INT(-(Num_pts+Num_header)/128. ) 

15700 Scr_file2$="hr"&Scr_file$ 
15710 CREATE BDAT Scr_f ile$ ,Num_rec, 256 

15720 CREATE BDAT Scr_f ile2$ , Num_rec, 256 

15730 CREATE BDAT "messglog : HP8290X, 700 , 1" , 20 , 540 

30 15740 CREATE BDAT "temp_trend"&Disk_name$ , 19 , 256 

15750 CREATE BDAT "hemo_data"&Disk_name$ , 10 , 256 

15760 CREATE BDAT " io_data"sDisk_name$ , 10 , 256 

15770 CREATE BDAT "lab_data"&Disk_name$ , 10 , 256 

15780 CREATE BDAT "vent_data"&Disk_name$ , 10 , 256 

35 15790 CREATE BDAT "co_data"&Disk_name$ , 10 , 256 

15800 CREATE BDAT "drug_data" &Disk_name$ , 10 , 256 
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10 



15 



20 



25 



30 



35 



15801 
15802 

15803 

15804 
15810 
15820 
15830 



15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
16040 
16050 
16060 
16070 
16080! 



CREATE BOAT "sub_data"&Disk_name$ , 1,256 
ASSIGN QSub_data TO "sub_data"&Disk_ 
name$; FORMAT OFF 

OUTPUT @Sub_data ; Sub_name$ , Hos_num$ , Id_ 

age$ , Id_wt$ , Id_ht$ , Diag$ ,Opera$ 

ASSIGN @Sub_data TO * 

Halt_pg=0 

Nuiti_pts=1024 

PRINT Num_pts*Num_xfer; "points will be 
transferred in" ; Num_xf er ; "bloc 
ks of " ;Num_pts; "points" 



1 



Num_x f e r_l e f t =Num_xf e r 

SUBEND 



DEF FNMonth{Date_now$) 

Month$=Date_now$ [ 4 ; 3 ] 
Month=0 



IF 


Month$= 


"Jan" 


THEN 


Month=l 


IF 


Month$= 


"Feb" 


THEN 


Month=2 


IF 


Month$= 


"Mar" 


THEN 


Month=3 


IF 


Month$= 


"Apr" 


THEN 


Month=4 


IF 


Month$= 


"May" 


THEN 


Month=5 


IF 


Month$= 


"Jun" 


THEN 


Month=6 


IF 


Month$= 


"Jul" 


THEN 


Month=7 


IF 


Month$= 


"Aug" 


THEN 


Month=8 


IF 


Month$= 


"Sep" 


THEN 


Month=9 


IF 


Month$= 


"Oct" 


THEN 


Month=10 


IF 


Month$= 


"Nov" 


THEN 


Month-11 


IF 


Month$= 


"Dec" 


THEN 


Month=12 



RETURN Month 
FNEND 
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160901 
161001 
161101 
161201 

5 16130 SOB Xf header (@Dislc,Num_bytes,File_id$) 

16140 INTEGER Xheader(7) BUFFER 

16150 Xheade r ( 0 ) = ( T IMEDATE MOD 86400 )/60 

16160 Xheader(l)=Num_bytes 

16170 Xheader(2)=NUM(File_id$[l;l3 ) 

10 16180 Xheader(3)=0 

16190 Xheader(4)-0 

16200 Xheader(5)=0 

16210 Xheader(6)=0 

16220 Xheader(7)=0 
15 16230 ASSIGN §Xheader TO BUFFER Xheader(*) 

16240 CONTROL @Xheader , 5 ; 1 1 Reset empty pointer 

for buffer 

16250 CONTROL iXheader , 4; 16 1 Reset current number 

of bytes in buffer 
20 16260 TRANSFER gXheader TO fDiaky COUNT 16, WAIT 

16270 ASSIGN gXheader TO * 

16280 SUBEND 

16290! 

16300! 
25 16310! 

16320! 

16330! 

16340! 

16350 SUB Trend_graph 
30 16360! 

16370 COM /Trends/ Mean_hr_t { * ) ,Lf a_t ( *) ,Rf a_ 

t ( * ) ,Ratio_t ( * ) ,T_ptr , Time_now 
l,Meas_resp_t{*) ,Trend_dp,Trans_time{ *) ,Lfa_ 
top,Rf a_top 

35 16380 COM /Multi_param/ Start_chan,Stop_chan, Pacing 

bi ts , Pacing_r at e , Num_pt 
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10 



15 



16390 



16400 



16410 

16420 
16430 
16440 
16450 
16460 
16470 
16480 



s , Num_xf er , Num_xf er_lef t , Name_len , Scr_ 

file$[28],Scr_ 
file2$[28] 
COM /Pressure/ 

Topi , Top2 , Top3 , Top4 , Bo t 1 , Bot 2 , Bo t 3 , Bot 4 
COM /Pres_chart/ Pres_time$(*) ,Ao_s(*) ,Ao_ 
d(*) , ,Ao_m(*) ,Pa_s(*) ,Pa_d(* 

) ,Pa_m(*) ,La_m(*) ,Ra_m(*) , Pres_ptr ,Pres_in 
DIM First_line(60) ,Sec_line(60) ,Third_ 
line(60) f Fourth_line(60) 
IP Trend_dp=l THEN 

MAT Pirst_line= Ao_ra 

MAT Sec_line= Pa_m 

MAT Third_line= La_m 

MAT Pourth_line= Ra_m 

G_right=INT( (Num_xf er*256/60 ) /15 ) 
! IF Pres_in=0 THEN ! Trend_ptr=Pres_ 

ptr+1 





16490 


! Trend_ptr=Pres_ptr+l 


20 


16500 


> ELSE 




16510 


Trend_ptr=Pres_ptr 




16520 


I END IF 




16530 


ELSE 




16540 


MAT First_line= Mean_hr_t 


25 


16550 


MAT Sec_line= Ratio_t 




16560 


MAT Third_line= Lfa_t 




16570 


MAT Fourth_line= Rfa_t 




16580 


G_r i gh t =Num_x f e r 




16590 


Trend_ptr=T_ptr 


30 


16600 


END IF 




16610 


Block_time=Pacing_rate*l. 024/3 




16620 


GINIT 




16630 


GCLEAR 




16640 


PRINT CHR$(12) 


35 


16650 


GRAPHICS ON 




16660 


Beg_time=Time_nowl/3600-Block_ 
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16670 
16680 
16690 

167001 

16710! 

16720J 

16730 

16740 

16750 

16760 

16770 

16780 

16790 

16800 

16810 

16820 

16830 

16840 

16850 

16860 

16870 

16880 

16890! 

16900! 

16910! 

16920 

16930 

16940 

16950 

16960 

16970! 

16980! 

16990! 

17000 

17010 



End_t ime=Beg_t ime+Num_xf er *Block_t ime 
Ibeg_t ime=INT ( Beg_t ime ) 

IP Ibeg_time<Beg_time THEN Ibeg_time=Ibeg_ 
time+1 

label the time axes 

VIEWPORT 0,128,45,50 
WINDOW Beg_time , End_time ,0,1 
IF INT(End_time)>Beg_time THEN 
LDIR 0 

FOR T_label=Ibeg_time TO INT(End_time) 
MOVE T_label,.5 
LORG 5 
CSIZE 4 
LABEL T_label 
NEXT T_label 
END IP 

VIEWPORT 0,128,40,45 
• WINDOW 0,1,0,1 
MOVE .5,0 
LORG 4 

LABEL "Time (24 hr>" 

draw the axes 

VIEWPORT 0,128,50,100 
WINDOW Beg_t ime , End_t ime ,0,1 
AXES 1/15.,. l,Beg_t ime, 0 
WINDOW 1,0,1,0 
AXES 0,. 25, 0,0 

mean heart rate trends 

WINDOW -l,G_right,Botl,Topl 
MOVE 0,First_line(0) 
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17020 FOR 1=0 TO Trend_ptr-1 
17030 DRAW I,First_line(I) 

17040 NEXT I 
170501 

5 170601 ratio trends (with a line at ratio=2) 
170701 

17080 WINDOW -l,G_right,Bot2,Top2 

17090 LINE TYPE 8,5 

17100 IF Trend_dp=2 THEN 
10. 17110 MOVE 0,LGT(Sec_line(0) ) 

17120 ELSE 

17130 MOVE 0,Sec_line(0) 

17140 END IF 

17150 FOR 1=0 TO Trend_ptr-1 
15 17160 IF Trend_dp=2 THEN 

17170 ' DRAW I,LGT(Sec_line(I)) 

17180 ELSE 

17190 DRAW I,Sec_line(I) 

17200 END IF 

20 17210 NEXT I 

17220 IF Trend_dp=2 THEN 

17230 LINE TYPE 3 , 5 1 .. sparsely dotted line at 

ratio=2 

17240 MOVE 0,LGT(2.) 

25 17250 DRAW Trend_ptr-1 ,LGT{ 2 . ) 

17260 END IF 
17270! 

17280! If a trends 
17290! 

30 17300 WINDOW -1, G_right ,Bot3 , Top3 

17310 LINE TYPE 4,5 

17320 MOVE 0,Third_line(0) 

17330 FOR 1=0 TO Trend_ptr-1 

17340 'DRAW I ,Third_line( I) 

35 17350 NEXT I 

17360! 
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17370! 

17380! 

17390 

17400 

17410 

17420 

17430 

17440 

17450! 

17460! 

17470! 

17480 

17490 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 



rfa trends 

WINDOW -l,G_right,Bot4,Top4 
LINE TYPE 5,5 
MOVE 0,Fourth_line(0) 
FOR 1=0 TO Trend_ptr-1 

DRAW I,Fourth_line(I) 
NEXT I 

draw a key for line types 



VIEWPORT 64,128,0,50 
WINDOW 0,1,0,13 
IF Trend_dp=2 THEN 

PRINT TABXY (1, 17 ) ; 
PRINT TABXY (5 5, 15) 
PRINT TABXY (55,16) 
PRINT TABXY{ 55,17) 
PRINT TABXY(55,18) 

ELSE 

PRINT TABXY ( 1 , 17 ) ; 
PRINT TABXY (50 ,15) 
PRINT TABXY (50,16) 
PRINT TABXY (5 0,17) 
PRINT TABXY (5 0,18) 
END IF 

LINE TYPE 1,5 
MOVE .8,11 
DRAW l.,ll 
LINE TYPE 8,5 
MOVE .8,10 
DRAW l.,10 
LINE TYPE 4,5 
MOVE .8,9 
DRAW l.,9 
LINE TYPE 5,5 



"trend graph" 
;"mean hr( 0-200)" 
;"ratio( .01-100)" 
;"lfa (0-10)" 
;"rfa (0-10)" 

"mean pressure graphs" 
;"ao pressure ( 0-150) " 
; "pa pressure( 0-75) " 
;"la pressure(0-50) " 
;"ra pressure( 0-50 ) " 
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17730 
17740 
17750 
17760 
17770 
17780 
17790 
17800 
17810 
17820 
17830 
17840 
17850 

17860 
17870 
17880 
17890 
17900 

17910 
17920 
17930 
17940 
17950 
17960 
17970 
17980 
17990 
18000 

18010 

18020 
18030 
18040 



MOVE .8,8 
DRAW l.,8 
SUBEND 



SUB Msg_dump(Message_chart$ ( *) ,Message_line,Flg) 
COM /Messagecom/ Message$ ( 10 ) [ 80 ] , ©Messages 
DIM Msg_buffer$[1280] BUFFER 
IF Flg>=2 THEN GOTO Chart_f illed 
ASSIGN ©Msg_buffer TO BUFFER Msg_ 
buf fer$ ; FORMAT OFF 
STATUS ©Messages, 3 ;Numj_rec 
STATUS ©Messages , 4;Rec_len 
STATUS ©Messages, 5 ;Cur_rec 
STATUS ©Messages, 6 ;Cur_byte 
IF Cur_rec<=l AND Cur_byte<=l THEN ! . . no 
messages yet 
Flg=0 

DISP "no messages yet" 

WAIT 2 

SUBEXIT 
END IF 
Flg=2 

CONTROL ©Messages, 5;1 
CONTROL ©Messages,6;l 
FOR Rec=l TO Cur_rec-1 
Read_msg: TRANSFER ©Messages TO @Msg_buffer; COUNT 
Rec_len,WAIT . 

Message_char t$ ( Rec-1 ) =Msg_buf f er $ [ 1 ; Rec_ 
len] 

CONTROL ©Ms g_bu f f e r , 4 ; 0 
CONTROL ©Msg_buf fer,5;l 
NEXT Rec 
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18050 IF Cur_byte>l THEN 

18060 TRANSFER §Messages TO §Msg_buffer; COUNT 

Cur _byte-l, WAIT 
18070 Message_char t$-( Cur_rec-1 ) =Msg_ 

5 buf f er $ [ 1 ? Cur_by te-1 ] 

18080 END IF " 

18090 ASSIGN §Msg_buffer TO * 

18100 Reset_msg_f lie: I 

18110 CONTROf? @Messages,5;Cur_rec 

10 18120 CONTROL @Messages,6;Cur_byte 

18130 Chart_f illed: I 

18140 STATUS ^Messages , 5 ; Cur_rec 

18150 STATUS ©Messages , 6 ; Cur Jayte 

18160 Flg=2 
15 18170 Cur_msg_ptr=0 

18180 Chart_line=l 

18190 Msg_buf f er$=Message_chart$ ( 0 ) 

18200 Last_msg=Message_line+17 

18210 Clear$=CHR$ ( 255 ) &CHR$ ( 75 ) 

20 18220 OUTPUT 2;Clear$ 

18230 GRAPHICS OFF 

18240 Nextjmsg: ! 

18250 Beg_msg=POS (Msg_buf f er$ [ 4] , "Time" ) +3 

18260 IF Beg_msg=3 THEN GOTO Next_chart_line 

25 18270 Cur_msg_ptr=Cur_msg_ptr+l 

18280 IF Cur_msg_ptr>Message_line THEN 

18290 Tab_line=Cur_msgjptr-Message_line 

18300 PRINT TABXY(1/Tab_line) ;" " 

18310 PRINT TABXY(l,Tab_line) ;Msg_buf f er$ [ l,Beg_ 

30 msg-1] 
18320 END IF 

18330 Msg_buf f er$=Msg_buf f er$ [Beg_msg] 

18340 IF Cur_msg_ptr=Last_msg THEN Subend_msg 

18350 GOTO Next_msg 

35 18360 Next_chart_line:IF Chart_line<Cur_rec THEN 
18370 Msg_buf f er$=Msg_buf f er$&Message_ 
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18380 
18390 
18400 
18410 
18420 
18430 
18440 
18450 
18460 
18470 
18480 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
18570 
18580 
18590 
18600 
18610 
18620 
18630 
18640 
18650 

18660 
18670 

18680 
18690 
18700 



chart? ( Char t_line ) 
Chart_line=Chart_line+l 
GOTO Next_msg 
END IF 

Stopper :PRINT Msg_buffer$ 
Subend_msg : PRINT 
SUB END 

! 



SUB Disp_ctrls 

DISP "S - freq range adjust (1 or 2 Hz)" 
WAIT 2 

DISP "h - help: display these controls" 
• WAIT 2 

DISP "p - peak threshold adjust (+20%)" 
WAIT 2 

DISP "r - resp time series display"' 
WAIT 2 

DISP "s - search for resp peak (+.1 Hz)" 
WAIT 2 
SUBEND 



SUB Offgraph 

COM /Vitaldata/ Rfa, Lfa,Peakratio,Meas_ 

r esp , Nex t_t ime 
PRINT CHR$(12) 

PRINT TABXY (1,14); "RR=" ; PROUND ( Meas_resp , ■ 
2) ;"Hz" 

PRINT TABXY (1,15); "If a=" ; Lf a 
PRINT TABXY(1,15) ;"rfa=";Rfa 
PRINT TABXY (1, 17 ) ;"ratio=";Peakratio 
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18710 

18720 
18730 
18740 
18750 
18760 
18770 
18780 
18790 
18800 

18810 
18820 
18830 
18840 
18850 
18860 
18870 
18880 
18890 
18900 
18910 
18920 
18930 
18940 
18950 
18960 
18970 
18980 
18990 
19000 
19010 
19020 
19030 



PRINT TABXY(1,18) ;"next transfer: 
" ;TIME$ (Next_time) 
SUBEND 
£ 
I 

! This subroutine edits the data 



SUB Editor 

COM /Editor/ Edit_msg$ [ 80 ] 
COM /Vitaldata/ Rfa,Lfa,Feakratio,Meas_ 
r esp , Nex t_t ime 
Key_in: 1 

PRINT TABXY(1,18) ; " 
PRINT TABXY (1,18) ; Edi t_msg$ 
IF TIMEDATE>Next_time-15 THEN GOTO Keyend 
ON TIME (TIMEDATE+10) MOD 86400, 3 GOTO Keyend 
DISP "type message" 
GRAPHICS OFF 
ON KBD, 2 GOTO Next_char 
Key_wai t : GOTO Key_wai t 
Next_char : Key$=KBD$ 

ON TIME (TIMEDATE+10) MOD 86400,3 GOTO Keyend 
IF NUM(Key$)=255 THEN 

IF NUM(Key$[2] )=69 THEN GOTO Endjcey 
IF NUM(Key$[2])=66 THEN !. .backspacing 
New_msg_len=LEN ( Edi t_msg$ ) -1 
IF New_msg_len<=0 THEN New_msg_len=0 
Edit_msg$=Edit_nisg$ [ l;New_msg_len] 
END IF 

IF NUM(Key$[2])=35 THEN clear line 

Edit_msg$=" H 
END IF' 

ELSE 

IF LEN(Edit_msg$)<66 THEN ! . .can add 
1 characters 
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19040 Edit_msg$=Edit_msg$&Key$ 
19050 ELSE 
19060 BEEP 
19070 END IP 

5 19080 END IP 

19090 PRINT TABXY(1,18) ; " 

19100 PRINT TABXY( 1,18) ;Edit_msg$ 

19110 GOTO Key_wait 

19120 Keyend: ! 
10 19130 End_key:OPP KBD 
19140 OFF TIME 



19150 SUBEND 
19160 • 
19170 ! 
15 19180 I 

19190 SUB Chart (Chart_num) 

19200 COM /Subject/ Sub_name$ ,Hos_num$ , Id_ i _age$ , Id_ 

wt$ , Id_ht$ ,Diag$ ,Opera$ ,Halt_pg 
19210 COM /Io_chart/ Io_time$ (*), Iv_intake (*), Fluid 

20 in( *) ,In__tot(*) ,Urine(*) , Chest (*) ,Out_ 

tot(*) ,Net(*) ,Io_ptr 
19220 COM /Lab_chart/ Lab_ 

time$(*) ,Na(*) ,K1(*) ,C1( * ) ,Hco3 ( * ) ,Ca( * ) ,Hct ( * ) ,G 
luc(*),Dig(*),Pt(*) ,Ptt(*) ,Creat(*),Bun(*) ,Lab_ 
25 ptr . 

19230 COM /Vent_chart/ Vent_ 

time$(*),Rate(*),Fio2(*),Pp(*),Peep(*),Tv(*) , 
Ie_ratio$(*} ,Airp(*) ,Ph(*) ,Po2(*) ,Pco2(*) , 
Bgo3(*) ,Be(*) ,Vent_ptr " 
30 19240 COM /Pres_chart/ Pres_time$(*) /Ao_s(*) ,Ao_ 

d(*) ,Ao_m(*) ,Pa_s(*) ,Pa_d(* 

) ,Pa_m(*) ,La_m(*) ,Ra_m(*) ,Pres_ptr ,Pres_in 
19250 COM /Pressure/ 

Topi , Top2 , Top3 , Top4 , Botl , Bot 2 , Bo 1 3 , Bot 4 
35 19260 COM /Heart_index/ Heart_ 

time$(*) ,Ci(*) ,Pvri(*) ,Svri(*) ,Heart_ptr 
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10 



19270 

19280 
19290 
19300 
19310 
19320 
19330 
19340 
19350 
19360 
19370 
19380 



COM /Drugs/ Drug_time$ ( * ) ,Drug_name$ ( * ) ,Drug_ 

dos$(*) ,Drug_ptr 

Pres_stl=0 

Lab_stl=0 

lo_stl=0 

Vent_stl=0 

Drug_stl=0 

! 

i set up identifying subject info 



PRINT CHR$(12) 
PRINT TABXY(1,1); 

PRINT USING Image_wtl;Sub_name$,Hos_ 
num$ , TIME$ { TIMEDATE ) , DATE$ ( TIMEDATE ) 
15 19390 Image_wtl: IMAGE "Name: " ,K,XXXX, "Hosp num: 

" , K / XXXXX , K , XXXXX , K 
19400 PRINT TABXY(1,2); 

19410 PRINT USING Image_wt2 ; Id_age$ , Id_wt$ , Id_ 

ht$ ,Diag$,Gpera$ 
20 19420 Image_wt2 : IMAGE "Age: " ,K,XXXX, "Wt(kg) : 

" , K , XXXX , " Ht ( cm) : " , K , XXXX , " Diag 
: " , K,XXXX, "Op: " ,K 

19430 I 

19440 ! go to appropriate chart 

25 19450 1 

19460 ' ON Chart_num GOTO In_out ,Lab_val f Vent_ 
val ,Pres_val , Drug 

19470 In_out : ! . . . • intake/output 

19480 IP Io_ptr>3 THEN Io_stl=2 

30 19490 IF Io_ptr>5 THEN 

19500 DISP "do not input more Intake/Output 

data; disc full" 

19510 WAIT 3 

19520 SUE-EXIT 
35 19530 END IF 

19540 PRINT TABXY (30,3);" INTAKE/OUTPUT CHART " 
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19550 

19560 

19570 

19580 

19590 

19600 

19610 

19620 

19630 

19640 

19650 

19660 

19670 

19680 

19690 

19700 

19710 

19720 

19730 

19740 

19750 

19760 

19770 

19780! 

19790! 

19800 Lab_ 

19810 

19820 

19830 

19840 
19850 
19860 
19870 
19880 
19890 



PRINT TABXY (1,4);" Intake (cc/hr) " 

PRINT TABXY (1,5); "Time" 

PRINT TABXY (4, 6) ;"Maint. Fluid" 

PRINT TABXY (4,7); "Other Fluids" 

PRINT TABXY ( 1,9); "Total " 

PRINT TABXY (1, 11 ) ; "Output (cc/hr)" 

PRINT TABXY ( 4,12); "Urine" 

PRINT TABXY (4, 13); "Chest" 

PRINT TABXY (1, 15 ); "Total" 

PRINT TABXY (1, 17 ); "Net I/O" 

Start=25 

FOR I=Io_stl TO Io_ptr 

PRINT TABXY ( Start , 5 ) ; Io_time$ ( I ) 
PRINT TABXY(Sfcart,6) ; Iv_intake ( I ) 
PRINT TABXY (Start, 7) ;Fluid_in(I) - 
PRINT TABXY (Start, 9) ;In_tot(I) 
PRINT TABXY (Start, 12) ;Urine(I) 
PRINT TABXY ( Start , 13 ) ; Chest ( I ) 
PRINT TABXY (Start, 15) ;Out_tOt{ I) 
PRINT TABXY (Start, 17 ) ;Net( I) 
Start=Start+10 

NEXT I 

GOTO Finish 



yal:! ...lab values 

IF Lab_ptr>3 THEN Lab_stl=2 
IF Lab_ptr>7 THEN 

DISP "do not input any more lab values; 

disc full" 
WAIT 3 
SOBEXIT 
END IF 

PRINT TABXY (30, 3) ; "Lab Values" 
PRINT TABXY{10,4) ;"Time" 
PRINT TABXY ( 1 , 6 ) ; "Na " 
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19900 


PRINT 


TABXY ( 1 / 


-» \ .11* 


K 


19910 


PRINT 


TABXY ( 1 f 


O \ . II 

8 ) ; 


CI 


19920 


PRINT 


TABXY ( 1 / 


9 ) ; 


HC03 


19930 


PRINT 


TABXY ( 1 , 


10) ; 


Ca 


19940 


PRINT 


TABXY ( 1 , 


11) ; 


"Hct" 


19950 


PRINT 


TABXY ( 1 , 


12) ; 


"Glucose" 


19960 


PRINT 


TABXY { 1 , 


13); 


"Dig level" 


19970 


PRINT 


TABXY ( 1 , 


14) ; 


ii pip ii 


19980 


PRINT 


TABXY ( 1 , 


15); 


"PTT" 


19990 


PRINT 


TABXY ( 1 , 


16); 


"Creat" 


20000 


PRINT 


TABXY ( 1 , 


17); 


"Bun" 





20010 


Start=15 






15 


20020 


FOR I=Lab_ 


_stl TO Lab_ptr 






20030 


PRINT 


TABXY ( Star t+10 


,4) ;Lab_time$(I) 




20040 


PRINT 


TABXY (Start+10 


,6);Na(I) 




20050 


PRINT 


TABXY (Star t+10 


,7);K1(I) 




20060 


PRINT 


TABXY (Start+10 


/8) ;G1(I) 


20 


20070 


PRINT 


TABXY (Start+10 


,9) ;Hco3(I) 




20080 


PRINT 


TABXY (Start+10 


,10);Ca(I) 




20090 


PRINT 


TABXY (Start+10 


,11) ;Hct(I) 




20100 


PRINT 


TABXY (Start+10 


,12) ;Gluc(I) 




20110 


PRINT 


TABXY (Start+10 


,13)?Dig(I) 


25 


20120 


PRINT 


TABXY (Start+10 


,14) ;Pt(I) 




20130 


PRINT 


TABXY (Start+10 


,15) ;Ptt(I) 




20140 


PRINT 


TABXY (Start+10 


,16) ;Creat(I) 




20150 


PRINT 


TABXY (Start+10 


,17) ;Bun(I) 




20160 


Start= 


=Start+10 




30 


20170 


NEXT I 







20180 GOTO Finish 

20190! 

202001 

20210 Vent_val:! ....ventilation values 

35 20220 IF Vent_ptr>3 THEN Vent_stl=2 

20230 IF Vent ptr>5 THEN Vent stl=4 
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20240 


IP Vent_ptr>7 THEN 




20250 


DISP " 


do not input any more Vent valui 






disc full" 




20260 


WAIT 3 




5 


20270 


SOBEXIT 




20280 


END IF 






20290 


PRINT TABXY (30,3); "VENTILATION" 




20300 


PRINT TABXY( 1,4) ; "Settings Hour: 




20310 


PRINT TABXY (4,5); "Rate" 


10 


20320 


PRINT TABXY (4,6) ;"FI02" 




20330 


PRINT TABXY (4, 7 );" Peak Pres" 




20340 


PRINT TABXY (4,8); "Peep" 




20350 


PRINT TABXY (4,9); "TV" 




20360 


PRINT TABXY (4,10) ; "I:E ratio" 


15 


20370 


PRINT TABXY ( 4,11) ; "Mean air" 




20380 


PRINT TABXY (1, 12 ); "Blood Gases" 




20390 


PRINT TABXY (4,13) ; "ph" 




20400 


PRINT TABXY (4, 14) ; "p02" 




20410 


PRINT TABXY (4,15);" pC02 " 


20 


20420 


PRINT TABXY (4,16);" HC03 " 




20430 


PRINT TABXY (4, 17 ); "BE" 




20440 


Start=15 






20450 


FOR I=Vent_stl TO Vent_ptr 




20460 


PRINT 


TABXY( Start+10 , 4 ) ; Vent_time$ ( I ) 


25 


20470 


PRINT 


TABXY(Start+10,5) ;Rate(I) 




20480 


PRINT 


TABXY( Start+10, 6) ;Fio2(I) 




20490 


PRINT 


TABXY (Start+10, 7) ;Pp(I) 




20500 


PRINT 


TABXY (Start+10, 8) ;Peep(I) 




20510 


PRINT 


TABXY (Start+10, 9) ;Tv(I) 


30 


20520 


PRINT 


TABXY ( Start+10 , 10 ) ; Ie_ratio$ ( I ) 




20530 


PRINT 


TABXY( Start+10, 11 ) ;Airp( I) 




20540 


PRINT 


TABXY ( Start+10, 13 ) ;Ph( I) 




20550 


PRINT 


TABXY ( Start+10, 14) ;Po2( I) 




20560 


PRINT 


TABXY (Start+10, 15 ) ;Pco2( I) 


35 


20570 


•PRINT 


TABXY ( Start+10 , 16 ) ; Bgo3 ( I ) 




20580 


PRINT 


TABXY (Start+10, 17 ) ;Be( I) 
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10 



20590 

20600 

20610 

20620! 

20630! 

20640 Pres 

20650 

20660 

20670 



Start=Start+10 
NEXT I 
GOTO Finish 



val:! ....pressure values 

IF Pres_ptr>12 THEN Pres_stl=5 
IF Pres_ptr>17 THEN 

DISP "Do not input any more pressures; 

disc full" 





o n £p n 

^UOoU 


WAIT 3 




z\j oy u 


SUBEXIT 




/ uu 


END IF 




/ 1U 


PRINT 


TABXY (9, 3) ; "Time:" 


JL 3 


z u / z u 


PRINT 


TABXY (1,4); "Systemic" 




ZU / ju 


PRINT 


TABXY(4,5) ; "systolic" 




*? n *7 a n 


PRINT 


TABXY ( 4, 6) ; "diastolic" 




z u / o u 


PRINT 


TABXY (4,7) ; "mean" 




Z U / D U 


PRINT 


TABXY (1,8); "Pulmonary " 


z u 


z u / / u 


PRINT 


TABXY(4,9) ; "systolic" 




20780 


PRINT 


TABXY (4, 10 ); "diastolic" 




20790 


PRINT 


TABXY ( 4,11); "mean" 




20800 


PRINT 


TABXY ( 1 , 1 2 ) ; " LA mean" 




20810 


PRINT 


TABXY (1, 13 ) ;"RA mean" 


25 


20820 


PRINT 


TABXY ( 9,14) ; "Time: "• 




20830 


PRINT 


TABXY(1,15) f "C.I. " 




20840 


PRINT 


TABXY (1,16) ;"PVRI" 




20850 


PRINT 


TABXY ( 1, 17 );"SVRI" 




20860 


Start= 


*15 


30 


20870 


FOR I - 


s Pres_stl TO Pres_ptr 




20880 


PRINT TABXY (Start, 3) ; Pres_time$ ( I ) 




20890 


PRINT TABXY ( Start , 5 ) ; Ao_s ( I ) 




20900 


PRINT TABXY ( Star t , 6 ) ; Ao_d ( I ) 




20910 


PRINT TABXY (Start, 7) ;Ao_m(I) 


35 


20920 


PRINT TABXY (Start, 9) ;Pa_s(I) 




20930 


PRINT TABXY (Start, 10 ) ;Pa_d( I) 
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20940 

20950 

20960 

20970 
5 20980 

20990 

21000 

21010 

21020 
10 21030 

21040 

21050 

21060 

21070 
15 21080! 

21090 J 

21100 Drug 

21110 

21120 
20 21130 

21140 

21150 

21160 

21170 
25 21180 

21190 

21200 

21210 

21220 
30 21230 

21240 

21250 

21260 

21270 
35 21280 

21290 



PRINT TABXY( Start, 11) ;Pa_m(I) 
PRINT TABXY( Start, 12) ;La_m(I) 
PRINT TABXY( Start, 13) ;Ra_m(I) 
Start=Start+5 

NEXT I 

Start=15 

FOR 1=0 TO Heart_ptr 

PRINT TABXY( Start, 14) ;Heart_time$ ( I ) 
PRINT TABXY( Start, 15) ;Ci(I) 
PRINT TABXY( Start, 16) ;Pvri(I) 
PRINT TABXY( Start, 17) ;Svri(I) 
Start=Start+5 

NEXT I 

GOTO Finish 



I ... .hey man, drugs 

IF Drug_ptr>9 THEN Drug_stl=4 

IF* Drug_ptr>14 THEN Drug_stl=9 

IF Drug_ptr>19 THEN Drug_stl=14 

IF Drug_ptr>24 THEN Drug_stl=19 

IF Drug_ptr>29 THEN Drug_stl=24 

IF Drug_ptr>34 THEN Drug_stl=29 

IF Drug_ptr>38 THEN 

DISP "do not enter more drugs; disc full' 

WAIT 3 

SUBEXIT 
END IF 

PRINT TABXY(30,4) ; "Drug Chart" 
PRINT TABXY (1,6); "Name " 
PRINT TABXY (30,6); "Dosage " 
PRINT TABXY(60,6) ;"Time" 
D_line=7 

FOR I=Drug_stl TO Drug_ptr 

PRINT TABXY ( 1 , D_line ) ; Drug_name$ ( I ) 
PRINT TABXY ( 30 , D_line ) ; Drug_dos$ ( I ) 
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21300 




PRINT TABXY(60,D_: 


21310 




D_line=D_line+l 


21320 




NEXT I 


21330 


Finish: ! 


21340 


SUBEND 


21350 


I 




21360 


! 




21370 


DEF 


FNLval(Lnum$) 


21380 




Numval=VAL ( " 9 " &Lnum$ ) 


21390 




If Num val=9 THEN 


21400 




Rval=9999.999 


21410 




RETURN Rval 


21420 




ELSE 


21430 




Nuraval=VAL ( Lnum$ ) 


21440 




RETURN Numval 


21450 




END IF 


21460 




FNEND 



line) ;Drug_time$(I) 



20 



25 



30 



35 
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10 



15 



10 Teaser7: IThis program reviews data taken by sgrape 
20 I and allows all the graphs to be printed (when 
30 ! its done) 
40 
50 
60 
70 
80 



90 

100 

110 

120 

130 

140 

150 



LAST REVISION: 1 May 1985 



SET UP ERROR HANDLERS 

SET UP COMMON STORAGE /ARRAY STORAGE 



20 



25 



30 



35 



160 
170 
171 
180 
190 



200 



210 



220 



230 



COM /Vars/ Pf thrvar ,Ff trespvar 

COM /Intr_7/ Int_flag,Status_bytes(5) 

COM /Flags/ Atod_done , Scanner_done , Memoryl_ 

done , Memory 2_done , Timer_done , Counter_done , 

Memory3_done/ Memory 4_done 
COM /Io_arrays/ Counters ( 3 ) ,Counters2 ( 3 ) ,Time_ 
base$ [7] 

COM /Multi_param/ Start_chan/Stop_chan,Pacing_ 
bits ,Pacing_rate ,Num_pts ,Num_xf er , 

Num_xf er_lef t , Name_len, Scr_f ile$ [ 28 3 , Scr_ 
f ile2$[28] 

COM /Hr_sig/ Num_pulses ,Last_pulse,First_blk_ 
fig , Last_t ime , Num_hr_sig ,Max 

_hr_pts , Avg_hr , Rollover ,Hr_smooth 
COM /Hr_stats/ Hr_histo(128) ,Histo_min,Histo_ 
max , Num_f udge , Num_his to_pnts 
,@Err_log 
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240 COM /Plot_par/ Plotbox,Boxcar_f lg,Log_ 

plotf lg r Freq_limit,Resp__search,Pct_thresh 

250 COM /Graphs/ 

Hrdata(512) ,Hrspec(512) ,Respspec(512) ,Bpspec(512) 
5 260 COM /Vitaldata/ Rf a,Lfa,Peakratio,Meas_resp,Next_ 

m 

time 

270 COM /Idfield/ Id_field$[18] 

280 COM /Messagecom/ Message$( 10) [80 ], ©Messages 

290 COM /Trends/ Mean_hr_t(60) ,Lfa_t(60) ,Rfa_ 
10 t(60J ,Ratio_t(60) ,T_ptr,Time_now 

1 , Meas_resp_t ( 60 ) 

300 DIM Msg_pad$ ( 20 ) [ 80 ] , Edit_msg$ [ 80 ] 

310 DIM Msg_buffer$[80] BUFFER 

320 ASSIGN @Msg_buffer TO BUFFER Msg_buffer$ 
15 330 Log_plotflg=0 

340 Freq_limit=l. 

350 Resp_search=.l 

360 Pct_thresh=.2 

370 Scr_file$="?" 
20 380 > 

390 I Set up common/array storage for waveform 
analysis 

400 I 

410 I ••• 

25 420 ! 

430 t Set up common/array storage for waveform 
! analysis 



440 



30 450 ! 

460 COM /Directory/ Dir$ [ 160 ] , SPrinter 
470 COM /Wfl/ Printer r Plotter,String$[ 40] 
480 COM /Wf2/ Signal ( 8257 ) /Number_pnts, Type, Sampling_ 
period 

35 490 COM /Wf3/ Segment_size,Overlap,Num_segments ,Pnts_ 
used,Fft size 
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500 COM /Wf5/ Refn(63) ,Refd(63) ,Ref no,Ref do,Refgain 

510 COM /Autoparam/ Up_down,Up_delay,Dn_delay 

520 COM /Fftcom/ INTEGER Bitrev( 512 ) , Sincos ( 512 ) 

530 ! 

5 540 DISP "loading subroutines" 

550 LOADSUB ALL FROM "hr_siggen8" 

560 LOADSUB ALL FROM "automaxsb2 " 

570 LOADSUB ALL FROM "fft_anal6" 

580 DISP "load data disks and press CONTINUE" 

10 590 PAUSE 

600 ! 

610 ! 

620 ! The HP 9826/9836 flexible disk (5-1/4") has the 
following structure 

15 630 ! 2 sides, 33 tracks/side, 16 sectors/track, 256 
bytes/sector 

640 1 1 track = 4096 bytes = 16 sectors 

650 ! 1 side '= 135168 bytes = 528 sectors 

660 ! 1 disk = 270336 bytes = 1056 sectors 

20 670 ! 1 disk = 135168 words = 132K words 

680 ! 



690 ! 
700 ! 

710 INTEGER Hpib_buf f erl ( 2048 ) BUFFER 

720 INTEGER Hpib_buf f er2 ( 2048) BUFFER 

730 DIM Hr_signal(1024) BUFFER 

740 Read_ptrl=0 

750 Read_ptr2=0 

760 Begin: i 

770 Selections: 1 

780 ! 

790 ! 

800 ! NOW SET UP THE SCAN CARD PARAMETERS (DEFAULT 
1 VALUES) 

810 ! START CHANNEL (3.0) - 0 
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820 I STOP CHANNEL (3.1) - 1 

830 1 PACING (3.2) - 40 USEC 

840 I SEQN'L SCAN (3.3) - XXXX XXXX XXXI ( 1) 

850 I INTN'L PACING (3.3) - XXXX XXXX X1XX ( 4) 

5 860 I MSEC TIMEBASE (3.3) - XXXI XXXX XXXX (256) 

870 ! 

880 CALL Get_param 

890 I 

900 i set up the bit reverse index 

10 910 I 

920 Npair=Num_pts/2 

930 K=0 

940 FOR J=l TO Npair-1 

950 1=2 
15 960 Ndivi=Npair/I 

970 IF K<Ndivi THEN 1010 

980 K=K-Ndivi 

990 1=1+1 

1000 GOTO 960 ' 

20 1010 K=K+Ndivi 

1020 Bitrev(J+l)=K+l 

1030 NEXT J 



1040 1 

1050 ! set up the sin/cosine table 
25 1060 ! 



1070 Angl=ATN(l)*8/Npair 

1080 FOR J=0 TO Npair-1 
1090 Sincos( J)=SIN(Angl*J) 

1100 NEXT J 



30 1110 ! 

1120 ! set up other data paths 
1130 I 

1140 ! ASSIGN @Err_log TO "errs"SId_ 

f ield$&" :HP8 29 OX, 70 0,1", -FORMAT OFF 
35 1150 I ASSIGN ^Messages TO "msgs"&Id_ 

f ield$ & " : HP8 29 OX , 7 0 0 , 1 " ; FORMAT OFF 
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10 



15 



20 



25 



30 



1160 1 ASSIGN @Temp_trend TO "trnd"&id_ 

f ield$&" :HP829 OX ,700,1" ; FORMAT OFF 
IF Num_pts=0 THEN GOTO Begin 
Read_ptrl=0 

" NUMBER OF POINTS=";Num_pts 



35 



1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 

1470 
1480 
1490 



Setup_scan : DISP 

Read_ptrl=0 

Read_ptr2=0 
Setup_counter : ! 
Setup_clock: ! 

Block^ime^Pacing^ate*! .024 

First_blk_flg=l 

Num_msgs=0 

Message_line=0 

Ms g_dp_r equ es t = 0 

Resp_dpf lg=0 

Max_hr_pts=1024 

Last time=0 



setup control parameters 



i 
i 

! 

Def aultset : ! 

INPUT "use default settings?" ,Resp$ 

IF Resp$="N" THEN Frqlimset 

Freq_limit=2. 

Pct_thresh=. 2 

Resp_dpf'lg=l 

Resp_search= . 2 

Hcdopyf lg=0 

PRINT "Spectra displayed to" ;Freq_limit ; "Hz" 
PRINT "resp peak search thresholds" ; Pct_thresh 
PRINT "resp series plot w/hr series" 
PRINT "resp peak search starts at";Resp_ 
search; "Hz" 

PRINT "no hard copy will be printed" 

INPUT "is this ok?",Resp$ 

IF Resp$o"Y" THEN Defaultset 
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1500 GOTO Skipset 
1510 Frqlirnset:! 

1520 INPUT "frequency limit?" ,Freq_limit !.. change 
spectra disp.freq. range 
5 1530 IF Freq_limit<>l. THEN Freq_limit=2 . 

1540 PRINT "Spectra displayed to" ;Freq_limit ; "Hz" 
1550 INPUT "is this ok?",Resp$ 
1560 IF Resp$<>"Y" THEN Frqlirnset 
1570 Searchset:! 
ia 1580 INPUT "resp peak threshold?" ,Pct_thresh i ••change 
peak search threshold 
1590 IF Pct_thresh>.8 THEN Pct_thresh=. 2 
1600 PRINT "resp peak search threshold^" ;Pct_thresh 
1610 INPUT "is this ok?" ,Resp$ 
15 1620 IF Resp$<>"Y" THEN Searchset 
1630 Respdpset:! 

1640 INPUT "display resp time series?" ,Resp$ 
'..display respiration time series 
1650 IF Resp$<>"N" THEN 
20 1660 Resp_dpflg=l 

1670 PRINT "resp series plot w/hr series" 

1680 ELSE 

1690 Resp_dpflg=0 

1700 PRINT "cancel resp series plot" 

25 1710 END IF 

1720 INPUT "is this ok?",Resp$ 
1730 IF Resp$<>"Y" THEN Respdpset 
1740 Resppkset: ! 

1750 INPUT "start for resp peak search?" ,Resp_ 
30 search {..change respiration 

peak search 

1760 IF Resp_search>Freq_limit-.l THEN Resp_search=.l 
1770 PRINT "resp peak search starts at";Resp_ 
search; "Hz" 
35 1780 INPUT "is this ok?" / Resp$ 

1790 IF Resp$<>"Y" THEN Resppkset 
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1800 Hdcopyset: I 

1810 INPUT "print hardcopy?" ,Resp$ 
1820 IF Resp$="N" THEN 
1830 Hdcopyflg=0 
5 1840 PRINT "no hard copy will be printed" 

1850 ELSE 

1860 Hdcopyflg=l 

1870 PRINT "hard copy will be printed" 

1880 END IF 
10 1890 INPUT "is this ok?",Resp$ 

1900 IF Resp$o"Y" THEN Hdcopyset 
1910 Skipset: ! 
1920 ! 

1930 ! Read data continuously 
15 1940 ! 

1950 I Set up the memory buffers and disk files 
1960 I 

1970 Reading: ! 

1980 ASSIGN §ln_buffer TO BUFFER Hpib_buf f erl ( * ) 
20 1990 ASSIGN §Diskbuffer TO Scr_file$ ; FORMAT OFF 

2000 ASSIGN @In_buffer2 TO BUFFER Hpib_buf f er 2 ( * ) 
2010 ASSIGN @Diskbuf f er 2 TO Scr_file 2$ ; FORMAT OFF 
2020 ! 

2030 Data_lockout=0 
25 2040 ! 

2050 ! generate id fields to identify data files 

2060 i 

2070 ! the first 256 bytes of the file are reserved for 
identification 

30 2080 ! 

2090 ! the reserved data are: 



2100 


! 


byte 


1 


- 72 ("H") 


or 82 ( "R" ) : hr or 




! 


file 








2110 


! 


byte 


2 


- year (at 


beginnig of expt.) 


2120 


i 


byte 


3 


- month 




2130 


! 


byte 


4 


- day 
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10 



15 



20 



25 



30 



2140 


■ 

i 


byte 


5 




hour 


2150 


! 


byte 


6 




minute 


2160 


I 


byte 


7 




collecting program date (0-365) 


2170 


i 


byte 


8 




collecting program year (1984-?) 


2180 


i 


byte 


9- 


•16 : unused 


2190 


i 


byte 


17 




pacing rate (0-32768) 


2200 


! 


byte 


18 




pacing rate units (77 ="M" or 85 




1 


=:"U M ) 








2210 


i 

• 


byte 


19 




number of transfers 


2220 


1 


byte 


20 




number of point/transfer (=1024) 


2230 


! * 


byte 


21 




number of A/D channels used (=1) 


2240 


I 


byte 


22- 


■256 : unassigned 



35 



2250 
2260 
2270 

2280 
2290 
2300 

2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 



the remainder of the file is data 

each transfer is preceded by an identifying 

string of 8 bytes 

byte 1 - time of day (timedate mod 86400 )/60 
byte 2 - number of points in next transfer 
byte 3 - H/R (check to make sure this is the 
right file) 



INTEGER Id_buffer(255) BUFFER 
T ime_now=T IMEDATE 
Id_buf fer(0)=72 
Dat e_now$=DATE$ ( TIMEDATE ) 
Day_now=VAL ( Date_now$ ) 
Year_now=VAL ( Dat e_now$ [ 8 ; 4 ] ) 
Month__now=FNMonth ( Dat e_now$ ) 
Id_buf f er ( 1 ) =Year_now 
Id_buf f er ( 2 ) =Month_now 
Id_buf f er ( 3 ) =Day_now 
Time_nowl=Time_now MOD 86400 
Id_buf f er ( 4) =Time_nowl/3600 
Id_buf fer(5) = (Time__nowl MOD 3600)/60 
Id buffer(6)=348 J 



! . .Heart rate file 



i 

> . 



I 



• pgm 



. .year 
.month 
! . . day 

. .hour 
I . .min 
date 
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2470 ! Id_buffer(7)=1984 !..pgmyear 
2480 ! Id_buf fer(16)=Pacing_rate 

2490 ! Id_buffer(17)=77 '..MSEC 
2500 ! ld_buffer(18)=Num_xfer 
5 2510 ! Id_buffer(19)=1024 !..num_pts 
2520 ! Id_buffer(20)=l channels 
2530 ! 
2540 I 

2550 ! read id field for heart rate file 
10 2560 I 

2570 ! ASSIGN @Id_buffer TO BUFFER Id_buffer(*) 
2580 ! TRANSFER @Diskbuffer2 TO @Id_buf f er ; COUNT 

! 256, WAIT 
2590 ! ASSIGN <§Id_buffer TO * 
15 2600 ! 

2610 ! read id field for respiratory file 
2620 ! 

2630 1 Id_buffer(0)=82 ! . .Resp file 

2640 ! ASSIGN @Id_buffer TO BUFFER Id_buffer(*) 
20 2650 • TRANSFER @Diskbuffer TO §Id_buff er ; COUNT 256, WAIT 
2660 J ASSIGN @Id_buffer TO * 
2670 ! 
2680 ! 
2690 ! 

25 2700 ! begin transferring data from the A/D buffer 
2710 I 

2720 Blk_xfer: I 

2730 CONTROL @In_buf f er , 3 ; 1 

! Reset fill pointer for buffer 
30 2740 CONTROL <§In_buf f er , 4 ; 0 

i Reset current number of bytes in buffer 
2750 CONTROL §In_buf f er , 5 ; 1 

! Reset empty pointer for *buf f er 
2760 ! 

35 2770 ! read an 8 byte sequence to disk as a header for 
! the transfer 
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2780 ! 

2790 CALL Rdheader ( QDiskbuf f er , Num_pts , "R" ) 
2800 ! 

2810 Num_rdpts=Num_pts 
5 2820 TRANSFER QDiskbuffer TO @In_buf fer ; COUNT Num__ 
rdpts*2,CONT 
2830 PRINT TABXY(1,18) ; 

2840 PRINT USING Image_wtl ; Num_xf er-Num_xf er_ 
lef t +1 , Num_xf er , TIME$ { Nex t_t ime ) , 
10 Rdseg,Num_rdseg 

2850 image_wtl : IMAGE "Next xf er ( " ,K, "/" ,K, " ) : " ,K," 

seg=",K,"/",K 

2860 ! 

2870 1 store A/D buffer on complete data file (also 
15 save pointers for heart rate) 

2880 i 
2890 ! 

2900 Resumel:! 

2910 Next_time=Next_time+INT(Block_time) 
20 2920 > 
2930 I 
2940 ! 

2950 Resume2: ! 

2960 Num_xfer_left=Num_xfer_left-l 
25 2970 CONTROL @In_buf f er2 , 3 ; 1 

! Reset fill pointer for buffer 
2980 CONTROL @In_buf f er2 , 4 ; 0 

! Reset current number of bytes in buffer 
2990 CONTROL @In_buf f er2 , 5 ; 1 
30 ! Reset empty pointer for buffer 

3000 ! 

3010 1 read an 8 byte sequence to disk as a header for 

! the transfer 
3020 1 

35 3030 CALL Rdheader { §Diskbuf fer 2 , Num_pulses , "H" ) 

3040 TRANSFER <§Diskbuf f er 2 TO §In buf f er2 ;COUNT Num 
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pulses* 2, WAIT 





3050 


I 




3060 


Resumes : ! 




3070 


Histo_max=8000 


5 


3080 


Histo min=-8000 




3090 


CALL Hr_sig_gen(Hpib_buf f er2( *) ,Hr_s 




3100 


! 




3110 


! 




3120 


Resume 6 : ! 


10 


3130 


OUTPUT 2;CHR$(255)&CHR$(75) ; 






1 Clear CRT of text 




3140 


GINIT 




3150 


PLOTTER IS 3 , 11 1 NTERNAL " 




3160 


GRAPHICS ON 


15 


3170 


Xscale=8 




3180 


Hr max=MAX(Hr signal{*)) 




3190 


Hr min=MIN(Hr signal(*)) 


- 


3200 


VIEWPORT 0,64/50/100 




3210 


WINDOW 0 # 1 , 0 , 1 


20 


3220 


AXES ,1.,1,Q,0 




3230 


CSIZE 4 




3240 


Hr signal{1024)=0 




3250 


Hr sigsum=SUM(Hr signal) 




3260 


Mean hr=INT( (Hr sigsum/1024+Avg hr)) 


25 


3270 


LDIR 0 




3280 


LORG 3 




3290 


MOVE . 2 / • 9 




3300 


LABEL "HR data hr=" ;Mean_hr 






L*0 -L Li La «* 


30 


3320 


MOVE .05,1 




3330 


LORG 3 




3340 


LABEL "250 bpm" 




3350 


WINDOW 1,0,1,0 




3360 


AXES 0,0,0,0 


35 


3370 


IF Hr_dispflg=l THEN 




3380 


WINDOW 0,1024,Hr min,Hr max 
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3390 ELSE 

3400 Low_window=INT(-Avg_hr ) 

3410 High_window=Low_window+250. 

3420 WINDOW 0 , 1024 ,Low_window,High_window. 

5 3430 END IF 

3440 FOR 1=0 TO 1023 

3450 PLOT I,Hr_signal(I) 

3460 NEXT I 

3470 iCALL Pauser 

10 3480 IF Fftskpflg=l THEN GOTO Skip_fft 

3490 ! 

3500 ! display respirations time series also 

3510 ! 

3520 IF Resp_dpflg=l THEN 

15 3530 Max_resp=MAX(Hpib_bufferl(*) ) 

3540 Min - resp=MIN(Hpib_bufferl(*) ) 

3550 . IF Mean_hr>100 'THEN 

3560 VIEWPORT 0,64,50,65 

3570 ELSE 

20 3580 VIEWPORT 0,64,75,90 

3590 END IF 

3600 WINDOW 0,1023,Min_resp,Max_resp 

3610 MOVE 0,Hpib_bufferl(0) 

3620 FOR 1=1 TO 1023 

25 3630 PLOT I ,Hpib_buf f erl ( I ) 

3640 NEXT I 

3650 ELSE 

3660 Resp_dpflg=0 

3670 END IF 

30 3680 ! 

3690 I now process heart rate data with waveform 

analysis package 

3700 ! make sure the hr_signal has zero mean 

3710 i 

35 3711 MAT Signal= (0) 

3720 Hr_bias=Hr_sigsum/10 24 
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3730 
3740 
3750 
3751 
3760 
3770 
3780 
3790 
3800 

3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3881 
3890 
3900 
3901 
3902 
3910 
3920 
3930 

3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4011 



! 



! 



FOR 1=0 TO 1023 

Signal ( I ) =Hr_signal ( I ) -Hr_bias 
NEXT I 

Hr_var=DOT( Signal, Signal )/1024 
Plotbox=2 

DISP "HR fft in process" 
CALL Wf_analyzer (Pacing_rate) 

now process respiration data with waveform 
analysis package 

MAT Signal= (0) 
FOR 1=0 TO 1023 

Signal ( I ) =Hpib_buf f erl (I ) 
NEXT I 

Signal_avg=SUM(Signal)/1024. 
MAT Signal= Signal- ( Signal_avg) 
Flotbox=4 

Respvar=DOT( Signal, Signal )/10 24 

DISP "RESP fft in process" 

CALL Wf_analyzer (Pacing_rate) 

PRINT "hr_var , respvar" ;Hr_var ;Respvar 

PRINT "fft vars: " ; Ff thrvar ,Ff trespvar 

Trend_dp=0 !.. trend graph not displayed 



! waveform analysis completed, compile trends and 
store in temporary file 

j 

Mean_hr_t { T_pt r ) =Mean_hr 

Lfa_t(T_ptr)=Lfa 

Rfa_t(T_ptr)=Rfa 

Ratio_t (T_ptr )=Peakratio 

Meas_resp_t ( T_ptr ) =Meas_resp 

T_ptr=T_ptr+l 

IF Hdcopyflg=l THEN 

DUMP DEVICE IS 701 
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4080 



4100 



4092 



4091 



4090 



4070 



4020 



4060 



4050 



4040 



4030 



DUMP GRAPHICS 

PRINTER IS 701 

PRINT "hr=";Mean_hr 

PRINT "lfa=";Lfa 

PRINT "rfa=";Rfa 

PRINT "ratio" ;Peakratio 

PRINT "RR'^Meas^resp 

PRINT "transfer*", -T_ptr 

PRINT "hr_var,respvar" ;Hr_var ;Respvar 

PRINT "fft vars: " ; Pf thrvar ,Ff trespvar 

PRINTER IS 1 



4110 END IP 

4120 1 

4130 ! continue with data collection 

15 4140 I 

4150 Skip_fft: ! 

4160 IF Num_xfer_left<=0 THEN 

4170 GOTO Eo_blk_xfer 

4180 ELSE 

20 4190 DISP Num_xfer_left; "transfers remaining" 

4200 WAIT 3 

4210 GOTO Blk_xfer 

4220 END IP 

4230 Eo_blk_xf er : End_time=TIMEDATE 

25 4240 Delta_time=End_time-Start_tinie 

4250 1 

4260 Stop_pacing=TIMEDATE 

4270 I 

4280 Aborter : ! 

30 4290 ASSIGN §In_buffer TO * 

4300 ASSIGN §In_buffer2 TO * 

4310 ASSIGN §Diskbuffer TO * 

4320 ASSIGN §Diskbuffer2 TO * * 

4330 ! ASSIGN §Err_log TO * 

35 4340 I ASSIGN @Messages TO * 

4350 ! ASSIGN §Temp_trend TO * 



WO 86/07248 



PCT/US86/01193 



- 159 - 



10 



15 



20 



25 



30 



4360 
4370 
4380 
4390 ! 

4400 ! 

4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 



4610 



35 4620 



CALL Fauser 
GRAPHICS OFF 
CALL Get_param 

ASSIGN @Err_log TO "errs"&Id_ 
field$&":HP8290X, 700,1"; FORMAT OFF 
ASSIGN QMessages TO "msgs"&ld_ • 
field$&":HP8290X, 700,1"; FORMAT OFF 
IF Num_pts=0 THEN GOTO Begin 
GOTO Setup_scan 
END 
1 



SUB Pause r 

DISP "press CONTINUE to continue" 

PAUSE 

DISP 
SUBEND 



i 
i 

< 

SUB Get_param 

COM /Mult i_pa ram/ Start_chan,Stop_chan,Pacing_ 

bits, Pacing_r ate, Num_pt 

s ,Num_xf er ,Num_xf er_lef t ,Name_len, Scr_ 

file$[28] ,Scr_ 

file2$[28] 

COM /Trends/ Mean_hr_t ( * ) ,Lf a_t ( * ) ,Rf a_ 
t(*) ,Ratio_t(*) ,T_ptr ,Time_now 

l,Meas_resp_t(*) 
COM /Vitaldata/ Rfa,Lfa,Peakratio,Meas_ 
resp,Next_time 



WO 86/07248 



PCT/US86/01193 



- 160 - 



10 



15 



20 



25 



30 



35 



4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 

4860 
4870 
4880 
4890 

4900 
4910 

4920 

4930 



COM /Idfield/ Id_f ield$ 
DIM Mo$[24] 

Mo $ = " JAFBMRAPMY JN JLAUSPOCNODC " 
INTEGER Id_buffer (255) BUFFER 
Di sk_name$= " : HP 8 2 9 OX , 7 0 0 , 1 " 

Oldmsg: PRINT CHR$(12) 

I 

! 

Ch_sel: ! 

Start_chan=0 
Stop_chan=0 

! 

Pacing_bits=0 
Pacing_sel : ! 

Base$="M" 
Pacing_bits=261 



Base$=Base$&"SEC" 



! FINDOUT BLOCKSIZE FOR DATA TRANSFER 
! 

Get_xf er :DISP "Enter number of transfers: (0 - 
change scan, <0 - quit)" 
OUTPUT 2; 55; 
ENTER 2;Num_xfer 

IF Num_xfer<0 THEN I . . terminate program 

INPUT "to lose trend data type 
1 lose ' " , Response$ 
IF Response$<>"lose" THEN 
CREATE BDAT 

"teasertrnd:HP8290X, 700,1", 19, 256 
ASSIGN QTrndfile TO 

" t easer t r nd : HP8 2 9 OX , 7 0 0 , 1 " ; FORMAT OFF 
OUTPUT @Trndf ile;Mean_hr_t ( * ) ,Lfa_ 
t(*) ,Rfa_t(*) ,Ratio_t(*) ,Me 
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4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 

5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 

5130 
5140 
5150 
5160 
5170 
5180 

5190 
5200 
5210 

5220 
5230 
5240 



as_resp_t ( *) ,T_ptr 
ASSIGN @Trndfile TO * 
END IP 

DISP "PROGRAM COMPLETED" 
STOP 
END IP 

IF Num_xf er=0 THEN 

Num_pts=0 

SUBEXIT 
END IF 

since new data is to be taken, zero the trend 
graphs (120 pts=8hrs) 

MAT Mean_hr_t= (0) 
MAT Rfa_t= (0) 
MAT Lfa_t= (0) 
MAT Ratio_t= (0) 
MAT Meas_resp_t= (0) 
T_ptr=0 

Ratio_t(0)=l !. .prevent trend graph errors on 

startup 

Rfa=0 

Lfa=0 

Meas_resp=0 
Peak rat io=l 



Intvl_sel:DISP "ENTER PACING RATE (IN 
" ; Base? [1,4];"):" 
OUTPUT 2; 250; 
ENTER 2;Pacing_rate 

IF Pacing_rate<0 OR Pacing_rate>65535 THEN 
GOTO Intvl sel 



! 



Num_pts=1024*Num_xf er 
Num header=256+8*Num xfer 
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5250 INPUT "type in date on which data was 
taken", Datdate$ 

5251 INPUT "is trend file named 'trnd' (1) or 
' temp_t r end 1 ( 2 ) ? " , File_nm 

5 5260 Datdate$=DATE$(DATE(Datdate$) ) 

5270 I 

5280 ! the data files are named according to the date 
5290 I in the following format: 
5300 ! xxxxmmddyy 
10 '5310 I where 

5320 I xxxx - resp,hr ,msgs,errs, trnd 

5330 I dd - day 

5340 ! mm - month 

(JA^B^^AP^MY/JN^JL^U^SPrOCNp/DC) 

15 5350 I yy - year 

5360 Mo n t h_no w= FNMonth ( Da t da t e $ ) * 2 - 1 

5370 Mm$ =Mo $ [ Mon t h_now ; 2 ] 

5380 Id_f ield$=Datdate$ [ 1 ; 2 ] &Mm$&Datdate$ [ 10 ; 2 ] 

5390 i new name for respiratory file: respddmmyy 

20 5391 IF File_nm=l THEN 

5400 Scr_file$="resp"$Id_f ield$&Disk_name$ 

5410 i new name for heart rate file: hr ddmmyy 

5420 Scr_file2$-"hr "&Id_f ield$&Disk_name$ 

5421 ELSE 

25 5422 Scr_f ile$="AOK"&Disk_name$ 

5423 Scr_f ile2$="hrAOK"&Disk_name$ 

542 4 END IF 

5430 ! new name for errorlog: errsddmmyy 

5440 1 new name for message log: msgsddmmyy 

30 5450 ! name for trend summary file: trndddmmyy 

5460 Num_rec=-INT(-(Num_pts+Num_header )/128 . ) 

5470 Num_pts=1024 

5480 PRINT Num_pts*Num_xfer ; "points were 
transferred in" ;Num_xfer ; "blocks 

35 of"; Num_p t s ; "points " 

5490 ! 
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550 0 Num_xfer_left=Num_xfer 

5510 SUBEND 

5520 1 

5530 1 

5 5540 1 

5550 ! 

5560 DEF FNMonth(Date_now$) 

5570 Month$=Date_now$ [ 4 ; 3 ] 

5580 Month=0 

10 5590 IF Month$="Jan" THEN Month=l 

5600 IF Month$="Feb" THEN Month=2 

5610 IF Month$= ,, Mar'* THEN Month=3 

5620 IF Month$="Apr" THEN Month=4 

5630 IF Month$="May" THEN Month=5 

15 5640 IF Month $="Jun" THEN Month=6 

5650 IF Month$="Jul" THEN Month=7 

5660 IF Month$="Aug" THEN Month=8 

5670 IF Montl^^'Sep" THEN Month=9 

5680 IF Month$="Oct" THEN Month=10 

20 5690 IF Month$="Nov" THEN Month=ll 

5700 IF Month$="Dec" THEN Month=12 

5710 RETURN Month 

5720 FNEND 



5730 ! 

25 5740 1 

5750 ! 

5760 ! 

5770 1 



5780 SUB Rdheader(@Disk,Num_bytes,File_id$) 
30 5790 INTEGER Xheader(7) BUFFER 

5800 ASSIGN §Xheader TO BUFFER Xheader(*) 

5810 TRANSFER @Disk TO @Xheader ; COUNT 16, WAIT 

5820 ASSIGN @Xheader TO * 

5830 Num_bytes=Xheader(l) 
35 5840 File_id$=CHR$(Xheader(2) ) 

5850 SUBEND 
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5860 I 
5870 I 
5880 I 
5890 ! 
5 5900 i 
5910 ! 

59 20^ SUB Trend_graph 
5930 ! 



5940 COM /Trends/ Mean_hr_t(*) ,Lfa_t(*) ,Rfa_ 

10 t(*) ,Ratio_t(*) ,T_ptr ,Time_now 

1 ,Meas_r esp_t ( * ) 
5950 COM /Multi_param/ Start_chan,Stop_chan, Pacing 

bits,Pacing_rate,Num_pt 
s,Num_xf er ,Num_xf er_lef t,Name__len,Scr_ 
15 file$[28] ,Scr_ 

file2$[28] ' 

. 5960 Block_time=Pacing_rate*l. 024/3600. 

5970 GINIT 
5980 GCLEAR 
20 5990 PRINT CHR$(12) 

6000 GRAPHICS ON 

6010 PRINT TABXY( 1,18) ; "trend graph" 

6020 Beg_time=Time_nowl/3600-Block_time 
6030 End_time=Beg_time+Num_xfer*Block_time 
25 6040 lbeg_time=INT{Beg_time) 

6050 IF Ibeg_time<Beg_time THEN Ibeg_time=Ibeg_ 

time+1 



6060 ! 

6070 ! label the time axes 
30 6080 < 



6090 VIEWPORT 0,128,45,50 

6100 WINDOW Beg_time,End_time,0,l 

6110 IF INT(End_time)>Beg_time THEN 
6120 LDIR 0 

35 6130 FOR T_label=Ibeg_time TO INT ( End_ time) 

6140 MOVE T label,. 5 
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6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 



LORG 5 
CSIZE 4 
LABEL T_label 
NEXT T_label 
END IF 

VIEWPORT 0,128,40,45 
WINDOW 0,1,0,1 
MOVE .5,0 
LORG 4 

LABEL "Time (24 hr)" 

draw the axes 

VIEWPORT 0,128,50,100 
WINDOW Beg_time,End_time,0,l 
AXES 1/15. , .l,Beg_time,0 
WINDOW 1,0,1,0 
AXES 0,. 25, 0,0 

mean heart rate trends 

WINDOW -l,Num_xfer, 0,200. 
MOVE 0,Mean_hr_t(0) 
FOR 1=0 TO T_ptr-1 

DRAW I,Mean_hr_t(I) 
NEXT I 



! lfa trends 



! 



WINDOW -l,Num_xfer,0,10, 
LINE TYPE 4,5 
MOVE 0,Lfa_t(0) 
FOR 1=0 TO T_ptr-1 

DRAW I,Lfa_t(I) 
NEXT I 
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6510 
6-520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
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6670 
6680 

6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 



rfa trends 

WINDOW -l,Num_xfer,0,10. 
LINE TYPE 5,5 
MOVE 0,Rfa_t(0) 
FOR 1=0 TO T_ptr-1 

DRAW I,Rfa_t(I) 
NEXT I 

ratio trends (with a line at ratio=2) 

WINDOW -l,Num_xfer,-2.5,2.5 
LINE TYPE 8,5 
MOVE 0,LGT(Ratio_t(0) ) 
FOR 1=0 TO T_ptr-1 

DRAW I,LGT(Ratio_t(I) ) 
NEXT I 

LINE TYPE 3,5 !.. sparsely dotted line at 
ratio=2 

MOVE 0,LGT(2.) 

DRAW T_pt r-1 , LGT ( 2 . ) 

respiration trends 

WINDOW -l,Num_xfer ,0,200 
LINE TYPE 5,10 
MOVE 0,Meas_resp_t(0) 
FOR 1=0 TO T_ptr-1 

DRAW I,Meas_resp_t(I) 
NEXT I 

draw a key for line types 

VIEWPORT 64,128,0,50 
WINDOW 0,1,0,13 

PRINT TABXY( 55,15) ; "mean hr ( 0-200)" 
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6860 


PRINT TABXY(55 


,16); 


"lfa 


(0- 


-10)" 


6870 


PRINT TABXY(55 


,17); 


"rfa 


(0- 


-10)" 


6880 


PRINT TABXY{55 


,18); 


"ratio( 


.01- 


-100)" 


6890 


LINE 


TYPE 1,5 










6900 


MOVE 


.8,11 










6910 


DRAW 


1. ,11 










6920 


LINE 


TYPE 4,5 










6930 


MOVE 


.8,10 










6940 


DRAW 


1. ,10 










6950 


LINE 


TYPE 5,5 










6960 


MOVE 


.8,9 










6970 


DRAW 


l.,9 










6980 


LINE 


TYPE 8,5 










6990 


MOVE 


.8,8 










7000 


DRAW 


1. ,8 










7010 


LINE 


TYPE 1,5 










7020 


SUBEND 













20 



25 



30 



35 



WO 86/07248 



- 168 - 



PCT/US86/01193 



1 CALIB - program to calibrate instruments using 
board#l 

1 last revision: 4 April 1985 



defint a-y 1 only z denotes a real number 

dim buffer (12800) 
10 hrbpm=0 

zfqlow=0. 

zfqres=0. 

zifa=0. 

zrfa=0. 
15 els 



'define ports on 8253 
timer0=&h720 
20 timerl=&h721 
timer2=&h722 
con3253=&h723 



25 1 set timer modes to 16 bit square wave rate 

generators 
out con8253,&h36 
out con8253,&h76 
out con8253,&hB6 

30 

'for testing set timer 0 to 100Hz timebase 
, 2.38MHz/23864: 23864=93*256+56 
'set timer 0 to 1280Hz timebase 
1 (2.38MHZ/1864) (1864=7*256+72) 
35 'set timer 1 as a 1Hz clock at startup 
' (gives a heart rate signal at 
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1 60bpm) f set timer 2 as a flip flop 
out timer0,56 
out timer0,93 
out timer0,72 
5 out timer 0,7 

out timerl/0 
out timerl/5 
hrbpm=60 
out timer 2, 2 
10 out timer2 / 0 



' turn the gates on using the 8255 at bits 0,1,2 
on portc' 
15 porta=&H700 
portb=&H708 
portc=SH710 
con8255=&H718 

20 ' first set all 8255 ports to output, then set 

portc to OFFH 

out con8255,128 
out portc, &H0FP 

25 

1 first print out the present value of the 
interrupt vectors 
locate 4,1 
30 gosub 10000 



1 install the interrupt with a dummy buffer and 
print vectors 
35 reseter=256 

call wrbuf f er ( reseter ) 



WO 86/07248 



PCT/US86/01193 



- 170 - 

reseter=128 

call wrbuffer(reseter) 
call instint 
locate 5,1 
5 gosub 10000 



1 now go through required startup subroutines 
gosub 90 1 set up breathing 

10 signal 

gosub 70 1 set up heart rate 

variations 

gosub 50 1 put some information 

on screen 

15 gosub 80 1 turn D/A on 

locate 1/1 

print "commands: h(rvar),i(nt 
on) ,q(uit) ,r (beats) ,b{ reath) ,c(ounts) 11 



20 



1 wait until user hits a key 
savekey$=" " 
40 while 

len ( savekey$ ) =0 : savekey$=savekey$+inkey$ : wend 
25 if savekey$="r" then gosub 50 'print heart 

beats 

if savekey$="q" then goto 9996 'quit 

if savekeyS^'c" then gosub 60 'print timers 

if savekey$= H h" then gosub 70 'set up heart 

30 rate 

' variations 

if savekey$="i" then gosub 80 'unmask 
interrupts 

if savekey$="b" then gosub 90 'set up 
35 breathing signal 

.savekey$= ,,,l 
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goto 40 

'print present value of heartbeats 

5 50 locate 7,1 

call rdbeat(n) 

print "present heart beats are: " ;n;time$ 
return 

10 

1 print -present value of counters 
60 out control, 0 'latch timerO 

tlow0=inp( timerO ) 
thigh0=inp( timerO ) 
15 out control, &h40 'latch timerl 

tlowl=inp( timerl) 
thighl=inp( timerl) 

out control, &h80 'latch timer2 

tlow2=inp( timer2) 
20 thigh2=inp( timer2) 

locate 8,1 

print "timerO: " ; tlowG+thigh0*16 ; tab( 20 ) ? ' 

timerl : 

"rtlowl+thighl^lS; 
25 print tab(40) ; "timer2: " ; tlow2+thigh2*16 

return 



30 1 set up the heart rate variations 

1 respiratory frequency is given by 

1280Hz/buffer 

length 

1 low frequency is 1280Hz/low frequency 

35 divider 
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70 if numval<=0 then beep: print "setup analog 
buffer 

first" : return 

71 locate 17/1 

5 print "present lfa r rf a(bpm)= " ; zlf a, zrf a, "at 

f reqs(Hz) : 

H ;zfqlow, zfqres 
input "lfa, rfa, low freq: " , zlfan, zrfan, zfqlown 
if zlfan>3"0. then beep: goto 71 else zlfa=zlfan 
10 if zrfan>30. then beep:goto 71 else zrfa=zrfan 

if zfqlown<.02 or zf rlown>zf qres then beep: goto 

71 else 

zfqlow=zf qlown 
locate 21/1 

15 print "mean heart rate(bpm)= ";hrbpm 

7 2 locate 22 ,1 

input "new mean heart rate(bpm): f newhrbpra 

if newhrbpm>150 or newhrbpm<30 then beep: goto 72 

else 

20 hr bpm=ne wh r bpm 

'clear screen after input 

locate 17/1 

print space$(72) 

print space$(72) 
25 print space$(72) 

print space${72) 

print space$(72) 



30 1 now compute values for hrsetup subroutine 

meandiv=76800#/hrbpm 1 1280*60 ticks/min gives 
ticks/beat 

rfascal=76800#/(hrbpm-zrfa)-76800#/(hrbpm+zrfa) 

1 rfascal is the total excursion 

35 of 



1 respiration 
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lfascal=76800#/(hrbpm-zlfa)-76800#/(hrbpm+zlfa) 

1 lfascal is the total excursion 
of low frequency 
lowdiv=meandiv- ( r f ascal+lf ascal ) /2# 

5 

tbaserst=1280#/zfqlow 
locate 17,1 

print "tbaserst ,rf ascal , If ascal, lowdiv: 
" ; tbaserst; rf ascal; lfascal; 
10 print lowdiv 

call hr setup ( tbaserst , rf ascal , lfascal , lowdiv ) 



return 



15 



1 print out interrupt controller parameters 
80 locate 10,1 

mask=inp(&h21) 
20 if (mask mod 16)<8 then mask=mask+8 else 

mask=mask-8 

out &h21,mask 

mask=inp( &h21) 

print M 8259 IMR( interrupt mask regsiter)^ 

25 ";mask;" 

=" ;hex$(mask) 
return 



30 

1 this subroutine will 
90 locate 12,1 

input "enter breathing 
if brate>75 or brate<7 
35 zfqres=brate/60# 

numval=76800#/brate 



change the analog buffer 

rate (bpm): " r brate 
then beeprgoto 90 
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ztincr =8*ATN ( 1# ) /numval 
locate 12/40 

color 31:print "calculating respiratory 
signal. • . " : color 7 
5 call exstint 1 turn off interrupts 

while resetting buffer 

reseter=256 

call wrbuf fer( reseter) 

for itime=0 to numval 
0 ztnow-ztnow+ztincr 

analogval=127* ( i#+SIN( ztnow) ) 
call wrbuf fer (analogval) 

next itime 

call instint 
5 locate 12,40 

print "respiratory signal active now " 

return 



0 

1 exstall the 

9996 els 

locate 4/1 
gosub 10000 
5 call exstint 

locate 5/1 
gosub 10000 
locate 21 r l 

9999 stop 



interrupt and 



print vector 



1 subroutine to print out the interrupt vectors 

10000 def seg=0 
5 print " IRQ 3 §GB*4H: " ; hex$ ( peek ( &h2C) ) ; " 

";hex$(peek(&h2D) );" "; 
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print hex$(peek(&h2E) ) ;" 
M ;hex$(peek(&h2F) ) ; tab (40) ; 

print "IRQ4 @0C*4H: " ;hex$ (peek< &h30 ) ) ; " 
"; hex? ( peek (&h31));" "; 
5 print hex$(peek(sh32));" ";hex$(peek(&h33) ) 

return 

end 

10 



15 



20 



25 



35 
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10 



15 



page 66,80 

bdzint.asm - an assembler routine to handle interrupts 

from IRQ3 
Last . revision: 1 April 1985 



absO 



IRQ3 int 



; 8088 interrupt location 



segment at 0 ; absolute memory segment 

; allows placement of 
; interrupt address 
; future timebase 

interrupt handler 
; resides at int OB 

dw 2 dup( ?) ;of fset value is a word 



20 



IRQ4_int 
absO 



org 



dw 



ends 



QCH*4 ; heart beat interrupt 

;handler resides at int 
; 0C 

2 dup(?) ;offset value is a word 



25 



30 



; int_buffer: area to save DOS 
; dummy interrupt ptr 



int_buffer segment ;data segment containing 

35 ;user interrupt buffer 

save_int dw 4 dup(?) ;of fset for two DOS 
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; interrupts saved 
;to be restored using 
;exstint 



int buffer 



ends 



10 



working storage for 
time base interrupts 



15 



20 



25 



30 



dseg_tbase 

heartbeats 

base_rate 

If a_scal 
rfa_scal 
tbase ctr 



tbase rst 



segment 

dw . 

dw 

db 
db 
dw 



dw 



tbase_ptr dw 



tbase_len 
tbase_buf f er 
dseg_tbase 



? 



dw ? 
db 2800dup(?) 
ends 



data segment for timebase 

interrupt 
keep track of heart beats 

here (for debugging) 
lowest divisor for heart 

rate 

low frequency modulation 
high frequency modulation 
counter for timebase 

interrupt 
(use for low frequency 

generation) 
reset value for tbase_ctr 

used to set low frequency 
pointer to present analog 

value 

length of analog data buffer 
; buffer for A/D values 



35 
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setup structures to allow access to; 
arguments pased by BASIC 



subroutine rdbeat (BASIC beats) 



10 



15 



f rame_rd 

savebpl 
saveretl 

BASIC_beats 

frame rd 



struc 



dw 
dd 



dw 



ends 



; define the stack 
; structure for passing 

; arguments to BASIC 
? ; caller's base pointer 

? ; return offset and 

; segment pushed by BASIC 
? ;place to return heart 

; beats to BASIC 



frame wr 



struc 



20 



25 



savebp2 
saveret2 

analog 

frame wr 



dw 
dd 

dw 

ends 



; subroutine wr buffer (analog) 

define the stack structure 

for passing 
arguments from BASIC to 

analog buffer 
caller's base pointer 
return offset and segment 

pushed by BASIC 
place to receive analog value 
from BASIC 



30 



'frame hr struc 



35 



subroutine hrsetup(B_ Ireset , 
Br f a_scal ,Blf a_scal , Bbase_ 
rate) 

define the stack structure for 
passing 

arguments from BASIC to heart 
rate controls 
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savebp3 dw ? 

saveret3 dd ? 

Bbase_rate dw ? 

5 

Blf a_scal dw ? 

Brfa_scal dw ? 

10 B_lreset dw ? 

frame hr ends 



caller's base pointer 
return offset and segment pushed 
by BASIC 

BASIC'S lowest divider for heart 
rate 

BASIC'S low frequency scaler 

(amplitude) 
BASIC'S high frequency scaler 

(amplitude) 
BASIC'S low frequency timer 

reset value 



.code segment begins here 



15 



20 



25 



cseg_calibs 
basic_dgroup 

porta 

portb 

portc 
control 

timerO 
timerl 
timer2 
con8253 



segment ' code ' 
group data , stack , const , heap , memory 

; defining link to BASIC 
equ 0700H ;port definitions for 

;8255 port expander 
equ 0708H ; these addresses are 

; decoded on the homemade 
equ 0710H ; board 

equ 0718H ;control word in the 

;8255 

equ 0720H ;8253 timerO register 

equ 0721H ;8253 timerl register 

equ 0722H ;8253 timer 2 register 

equ 0723H ;8253 control register 



30 



35 



timebase interrupt handler (not accessible to; 
BASIC) 

;this routine reads the A/D every timerO 
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tbase int 
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15 



20 



25 



30 
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; tick 

;with the next point in the analog 
; buffer 



proc far ;this procedure -is not 

;made public 
assume cs : cseg_sync , ds : dseg_ 
base / es : nothing , ss : nothing 
push ax ;save registers used 

; during interrupt 
push bx ; 
push dx ; 
push ds ; 

mov ax/dseg — base ;set up segment 

; register for data area 
mov ds,ax ; 



; •.♦.increment counter used for 

;low frequency generation 
dec tbase_ctr ; decrement 

; interrupt counter 
jnz ctr_ok ;if not zero then 

; continue 

mov ax,tbase_rst ;else reload reset 

; value 
mov tbase_ctr f ax ; 
ctr_ok: 

; ...get analog value from 

; buffer and send to DAC 



mov bx,tbase_ptr ;get pointer to 
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; analog data 
dec bx ; 
mov al,tbase_buf fer [bx] ;get analog 

; value 



mov dx, porta 



out dx/al 



send analog value 
to DAC 



10 



15 



mov- dx, control 



mov al r 6 



out 
inc 
out 



dx f al 
al 

dx r al 



; toggle the write 
7 latch for the DAC 
;by using direct 
;bit reset 
;and 

; reset commands 



20 



25 



30 



35 



tbase eoi: 



dec tbase_ptr 



jnz tbase_eoi 



mov ax, tbase len 



mov tbase_ptr f ax 



mov 
out 

pop 

pop 
pop 
pop 
iret 



;point to next 
; value 

;if zero, reset 
;pointer 

; reset with buffer 
; length 



.••.acknowledge interrupt to 
8259A 

al,20H ;send EOI to 8259A 
20H f al ; 



ds 

dx 
bx 
ax 



restore registers which 
were used 



return to place where 
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; interrupt occurred 



debugmsgl db 'this is the end of the time 

base interrupt 1 

tbase int endp 



10 



15 



20 



25 



; heart beat interrupt handler (not accessible 
; to BASIC) 



30 



this routine updates the timerl rate generator 
every heart beat with the divider necessary to 
generate the next heart beat 

the respiratory modulation is given by a scaler 
(0-255) 

times the present value of the respiratory 
signal ♦ 

the low frequency modulation is given by scaler 
(0-255) 

times a value selected from the respiratory 

buffer . 
the value selected is the 

( tbase_ctr/tbase_rst)*buff er_length 

element 



35 



hbeat int 



proc far ;this procedure is not 

;made public 
assume cs : cseg_calibs , ds : dseg_ tbase 
assume es : nothing , ss : nothing 
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push 

push 
push 
push 
push 



ax 

bx 
cx 
dx 
ds 



save registers during 
interrupt 



mov ax,dseg_tbase ; set up segment 

;register for data area 
10 mov ds,ax ; 



inc heartbeats ; increment heart 

; beat counter 



15 ; calculate low frequency modulation 

; (the tbase buffer is used as a trig 

; table here) 

mov ax,tbase_ctr ;get number of '1280Hz 

;pulses 

20 dec ax ; 

mul tbase_len ; scale by length of 

; respiratory 
; buffer 

div tbase_rst ;divided by reset 

25 ;value to get 

pointer 

mov bx,ax ;to low frequency 

; modulation 

■* mov al, tbase_buf f er [bx] ;get sinusoidal 

30 ; modulation 

mul lfa_scal ;and scale 

; appropriately 
mov cx,ax ;cx accumulate 

;divider for 1280Hz 
35 clock 
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mov 

mov 
mul 
add 



...calculate respiratory modulation 
bx,tbase_ptr ;get present 

; respiration signal 
al,tbase buffer [bx] ;from buffer 



rf a_scal 
cx, ax 



;scale with rfa scaler 
;and add to cx 



10 



add 



cx,base rate 



finally add base rate 
to get. 

value for 
timerl (heart rate 
generator on 
8253) 



15 



20 



.send new divider to 8253 timer 



mov al,76H 



mov dx,con8253 
out dx,al 



set timer 1 to square 
wave 

generator 



25 



mov dx, timerl 



mov 
out 
mov 
out 



al,cl 
dx, al 
al,ch 
dx,al 



send divider to 
timel 

low byte first 
high byte next 



30 



mov 
out 



....acknowledge interrupt to 
8259A 

al,20H ?send EOI to 825 9A 
20H,al ; 



35 



pop 
pop 
pop 



ds 
dx 
cx 



restore registers and 
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pop 
pop 
iret 



bx 
ax 



; return to place where 
;interrupt occurred 



debugmsg2 



db 



! this is the end of the heart 
beat interrupt 1 



10 hbeat int 



endp 



15 



; subroutine instint ( install_inter rupts ) 



instint 



20 



25 



proc far 
public instint 

public symbol allows external references 
es,ds used to access interrupt and must 

be restored movsw 
uses (ds:si) (esrdi) addr 
assume cs : cseg_calibs , ss : basic_ 

dgroup, ds : basic_dgroup 
assume es:int buffer 



30 



push 
push 



►save registers 



ds 



es 



save ds register on the 
stack 

save es register on the 
stack 



35 



push 



mov 



bp 

bp,sp 



save BASIC base pointer 
for return to BASIC 
point stack pointer at 
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; frame reference to 

; address of BASIC analog 

;data buffer 



push 

push 
push 



ax 

si 
di 



save additional 
registers 



10 



;set up the segment registers as assumed 



15 



20 



25 



mov ax,int_buff er 

;es points to buffer area to save 

;DOS dummy interrupt vector 

mov es, ax ; 

mov ax, 0 ;ds points to 

; absO ( interrupt table ) 
mov ds , ax ; 

assume ds:abs0 ; 



30 



lea 

lea 

movsw 

movsw 
movsw 
movsw 



di,save_ int 
si,IRQ3 int 



; setup access to interrupt vectors 

;load offset of 
;save_int in es,di 

;load offset of 
;IRQ3_int in dS/Si 
;save DOS dummy 
; interrupt vectors to be 
restored later 
now saving IRQ4 



35 



;install the DAC timebase (IRQ3) 

mov IRQ3_int+2,cseg_calibs 
mov IRQ3_int , of f set tbase_int; 

; interrupt handler now 
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; install the heart beat (IRQ4) interrupt handler now 

mov IRQ4_int+2 , cseg_calibs ; 
mov IRQ4_int ,of f set hbeat_int; 



return to BASIC 



10 



pop 

pop 
pop 



di 

si 
ax 



; restore additional 
registers 



15 



pop 

pop 

pop 
ret 



20 



bp 

es 

ds 
0 



; restore BASIC 1 s base 

;pointer and 

; segment registers 

before returning 

delete 0 parameters (0 
bytes) from the stack 
and return to the 
calling routine 



debugmsg3 



db ! this is the end of the 

interrupt installation ' 



25 



instint 



endp 



30 



subroutine exstint (exstall 
interrupts) 
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exstint 



proc far 

public exstint ; public symbol allows 

; external references 
assume cs : cseg_calibs , ss : basic_dgroup 
assume ds : int_buf f er , es : absO 
;es,ds used to access interrupt 
; vectors and must be restored 
;movsw uses (ds:si) (es:di) addr 



10 



.save registers 



IS 



20 



push 
push 
push 
mov 



ds 



es 



bp 

bp/sp 



save ds register on the 
stack 

save es register on the 
stack 

save BASIC base pointer 
for return to BASIC 
point stack pointer at 

frame reference to 
access arguments passed 
by BASIC (none here) 



25 



30 



push 

push 
push 



mov 

mov 
mov 

mov 



ax 

si 
di 



save additional 
registers 



35 



fset up the segment 

registers as assumed 
ax,0 ;es points to 

;abs0 (interrupt table) 
es,ax ; 
ax, int_buf f er ;ds points to 

; buffer area to save 
ds,ax ;DOS dummy 

; interrupt vector 
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10 



lea 

lea 

movsw 

movsw 
movsw 
movsw 



di, IRQ3_int 
si, save int 



; setup access to interrupt vectors 

;load offset of 
;IRQ3_int in es,di 

;load offset of 
;save_int in ds,si 
; restore DOS 
;dummy interrupt vectors 
;for IRQ3 
;and IRQ4 



. return to BASIC 



15 



20 



25 



pop 

pop 
pop 

pop 
pop 
pop 

ret 



di 

si 
ax 



;restore additional 
3 registers 



bp ; restore BASIC'S base 

es ; pointer and segment 

ds ; registers before 

; returning 
0 ; delete 0 parameters (0 

; bytes) from the stack 
;and return to the 
; calling routine 



debugmsg4 



30 



db 



this is the end of the 
interrupt exstallation 1 



exstint 



endp 



35 
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; subroutine rdbeat ( read_heart_beats 



rdbeat 



10 



proc far 

public rdbeat ; public symbol allows 

; external references 
assume cs : cseg_calibs , es : dseg_tbase 
assume ds :basic_dgroup, ss :basic_dgroup 



15 



20 



.save registers 



push bp ;save BASIC base pointer 

;for return to BASIC 

mov bp,sp ;point stack pointer at 

; frame reference to 
;access arguments passed 
;by BASIC (one here) 



25 



push 

push 
push 



ax 

es 
di 



save additional 
registers 



30 



mov 



mov 



ax,dseg_tbase ;set up segment 

;register for data area 
es , ax ; 



35 



mov ax /heartbeats ;get 

; beats from local memory 
mov di, [bp] .BASIC_beats ; 

mov [di] r ax ;send 
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; beats to BASIC 



; return to BASIC 



10 



15 



pop 

pop 
pop 

pop 

ret 



di 

es 
ax 

bp 

2 



; restore additional 
registers 



; restore BASIC'S base 
;pointer , 

;delete 2 parameters (4 
;bytes) from the stack 
;and return to the 
;calling routine 



20 



debugmsgS 



rdbeat endp 



db 



1 this is the end of the heart 
beat read routine' 



25 



subroutine wrbuff er ( analog) 



wrbuf f er 



30 



proc far 

public wrbuffer ;public symbol allows 

; external references 
assume cs : cseg_calibs , es : dseg_tbase 
ass ume d s : ba s i c_dg r ou p , s s : bas i c_dg r oup 



35 



save registers 
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push 



mov 



bp ;save BASIC base pointer 

;for return to BASIC 

bp/Sp ;point stack pointer at 
; frame reference to 
;access arguments passed 
;by BASIC (one here) 



10 



15 



push ax ;save additional 

registers 

push bx 
push es 
push si 

mov ax,dseg_tbase ;set up segment 

; register for data area 
mov es / ax ; 



20 



25 



mov s i / [ bp ] . analog 

mov ax, [si] 

test ah f OFFH 

jz new_buff 

mov tbase_len,0 

mov tbase_ptr , 1 

jmp wr_ret 



get analog value 
from BASIC 

if upper byte is 
zero 

then install a - 
new point in 
the buffer 
otherwise reset 
the buffer 



30 



35 



mov bx,tbase_len ;.get present 

;pointer and 
;use it 

mov tbase_buf f er [bx] ,al ;to store 

; buffer value 

inc tbase_len ;point to next 

; buffer value 
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.return to BASIC 



wr ret: 



10 



pop 

pop 
pop 
pop 

pop 

ret 



15 



si 

es 
bx 
ax 

bp 
2 



restore additional 

registers 

wr ret: 



; restore BASIC 1 s base 
;pointer / 

;delete 1 parameters (2 
;bytes) from the stack 
;and return to the 
;calling routine 



20 



debugmsgS 



wrbuf f er 



db 



endp 



'this is the end of the buffer 
write routine 1 



25 ; subroutine hrsetup(B_lreset,Brfa_scal,Blfa_scal, 
Bbase rate) 



30 



proc far 

public hrsetup ;public symbol allows 

external references 
assume cs : cseg_calibs , es : dseg_tbase 
assume ds : basic_dgroup, ss : basic_dgroup 



35 



.save registers 
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push bp 



mov bp , sp 



10 



;save BASIC base 
;pointer for return 
;to BASIC 

;point stack pointer 

;at frame 

; reference to 

; access arguments 

; passed by BASIC 

; (one here) 



15 



push ax 

push es 
push si 



save additional 
registers 



20 



mov ax,dseg_tbase 



;set up segment 
; register for 
;data area 



mov es,ax 



25 



mov si, [bp] .Bbase_rate ;get lowest 

;divisor for heart 
mov ax, [si] ;rate from BASIC 

mov base_rate,ax ;and save in local 

; data 
; segment 



30 



mov 



mov 
mov 



35 



sir [bp] ,Blfa_sacl ;get low freg 

modulation 
scale 
from BASIC 
and save LSbyte in 
local data 
segment 



ax, [si] 
lfa scal,al 
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10 



mov si, [bp] .Brfa_scal ;get high freq 

; modulation scale 

mov ax, [si] ;from BASIC 

mov rfa_scal,al ;and save 

;LSbyte in local data 
; segment 

mov si, [bp] •B^lreset ;get low freq 

; timer reset value 
mov ax, [si] ; from BASIC 

mov tbase_rst,ax ;and save in 

; local data segment 



.return to BASIC 



15 



pop si 



pop 
pop 



es 
ax 



; restore additional 
; registers * 



20 



25 



pop 
ret 



bp 
8 



restore BASIC 1 s base 
pointer, 

delete 4 parameters (8 
bytes) from the stack 

and return to the 
calling routine 



debugmsg 7 



db 1 this is the end of the heart rate 
setup routine 1 



30 hrsetup endp 



cseg_calibs ends 



35 



end 
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5 



10 



15 



20 



25 



35 



WO 86/07248 



PCT/US86/01193 



- 197 - 



APPENDIX B 



10 



15 



1985 - Makoto R. Arai 
Laura E. McAlpine/ and 
Daivd Gordon 

SYNCTS19 - program to test synchrounous data 
acquisition and also 
test asynchronous processing using 
board#2 

addition: asynchronous data 
archiving (poll driven) 
reviewing old data 
last revision: 15 May 1985 

REQUIRED SUBROUTINES: <MODULE> 



20 



instint ( f dbuf lptr , f dbuf 2ptr , f dbuf 3ptr ) 
<SYNC7S> 

exstint <SYNC7S> 
rdbeat( heart, sync) <SYNC7S> 
rdbuf (dataptr,bufferno) <SYNC7S> 
rdpt r s ( adrd , hbrd , adf lag , hbf lag ) <SYNC7S> 



25 



30 



swindow ( xmins , xmaxs , ymins , ymaxs ) 

<GWINDOW3> 
dwindow ( xmind , xmaxd , ymind , ymaxd ) 

<GWINDOW3> 

clrwindw <GWINDOW3> 
axes <GWINDOW3> 
scaler ( dataptr ,gdataptr , numval) 
<GWINDOW3> 



35 



f graph ( dataptr , numval , xnow , 1 inemask ) 
<FGRAPH8> 

[for scaled graphs, use 
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dumpgr 



xnow=xmins , 

numval=numvalg=xmaxs-xmins+l , 
and gdataptr] 
[to dump graphics] <DUMPGR> 



10 



15 



defint a-y 1 only z denotes a real number 

defdbl z 

dim zreal(514) ,zrimag(514) ,zdata(1025) 
dim ydata{1025) ,ydatag(1025) 
dim hbl(1025) ,hb2 ( 1025) , zhr ( 1025 ) 
dim zspec . hb . real ( 312 ) , zspec • hb • imag ( 512 ) 
dim sresetval( 5) f resprstval ( 5 ) 
dim linetype(3) ,histogram( 100 ) 
def fnzmag(zl,z2)=zl*zl+z2*z2 
def f nzcoher { zrl f zil, zr2,zi2) =f nzmag 
( zrl*zr2+zil*zi2, zil*zr 2-zrl*zi2 ) 



20 



25 



1 
2 
3 



1 initialize timer reset values 

sval=27 : for i=l to 5 sresetval( i)=sval : 

sval=sval+sval : next i 
sval=1381 : for i=0 to 3 : resprstval ( i)=sval 

sval=sval+sval : next i 
resprstval ( 4 ) =sval 



1 define fft parameters 
30 4 fftsize=1024 : npair=f f tsize/2 : 

znpair=cdbl{npair ) : lpower=9 

5 for i=0 to 514 : zreal(i)=0# : zrimag(i)=0# 

next i 

35 

datacycle=0 
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1 flag for automatic fft: when non-zero, 

' marks stage of data 

1 processing (semi asynchronous) 

cyclewait=0 
5 1 define linetype for plots 

linetype ( 0 ) =&HFFFF 
linetype { 1 ) =&HAAAA 
linetype ( 2 )=&HCCCC 
linetype ( 3 ) =&HFAFA 
10 req«cls=0 
sounder=l 



'define ports on 8253 
15 timer0=&h704 
timerl=&h705 
timer2=&h706 
con8253=&h707 

20 

'define ports on 8255 
porta=&H71C 
portb=&H71D 
portc=&H71E 
25 con8255=&H71F 



1 set up sampling rate for heart rate timer and 
1 respirations 
30 gosub 100 



35 



' first set 8255 ports A,C to output, port B to 
' input 

•turn the gates on using the 8255 at bits 0 r l,2 
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1 on portc 

1 by setting portc to 1FH 
* this also selects channel 0 for the A/D 
Out con8255,130 
5 out portc, &H1F 



' now go through required startup subroutines to 
10 ' set up data archives 

ope n "R" ,1, "resp.dat" , 2048 
open "R",2,"hbl.dat",2048 
open "R ,, ,3,"hb2.dat",2048 
open "R" ,10, "trends.dat" ,128 

15 

31 field #1,2048 as analog$ 

field #2,2048 as fdhbl$ 
field #3,2048 as fdhb2$ 
field #10,128 as trends$ 

20 

fdflag=0 
f drecord=l 

recordlno=0 : record2no=0 : record3no=0 : 
recordl0no=0 
25 adflaglst=0 : hbflaglst=0 

fdbuflptr=varptr (#1)+188 ' set up 

'pointers to disk buffers 
f dbuf 2ptr=varptr ( #2 ) +188 

fdbuf3ptr=varptr(#3)+188 * 

30 

1 ...field definitions for ^ 

' trend data file 

field #10,8 as hr$,8 as rr$,8 as rcf$,8 
as lfa$,8 as rfa$,8 as coher$ 
35 field #10,48 as dummyl$,8 as ratio$,8 

as cratio$,8 as hrintegral$ 
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field #10,72 as dummy2$,8 as respintegral$ , 8 

as timestamp$ 
field #10,120 as dummy3$,2 as hbrecord$,2 

as adrecord$ 
field #10,124 as dummy4$,2 as hbeat$,2 

as samplrate$ 



• first print out the present value of the 

10 1 interrupt vectors 

locate 23,1 : gosub 20000 
gosub 19000 



15 1 make sure interrupts are off before installing 

■ handlers 

mask=inp( &h21) : mask=mask or 24 : out &h21,mask 

1 install the interrupts 
20 call instint (f dbuf lptr ,fdbuf 2ptr ,fdbuf3ptr ) 

locate 24,1 : gosub 20000 
gosub 19000 



25 ! turn interrupts back on 

mask=inp(&h21) ; mask=mask and &h0e7 : out 
&h21,mask 



30 40 locate 1,1 : gosub 20000 

print "commands: c(ounts), f(ft), g(raph) 

i(inon), q(uit), r(beats)"; 
print "s(tore), x(cls), #(samples); 



35 * wait until user hits a key 

41 savekey$="" 
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.while len( savekey$)=0 and datacycle<=0 

savekey$=savekey$+inkey$ : gosub 30000 : locate 
24,70:print time? ;: wend 

5 while datacycle=l 

fdrecord=recordlno : fdflag=l 

'set up future A/D analysis 
analrec .ad=recordlno : analrec • hr=record2no+l 
if req.cls=l then els : req,cls=0 
10 'clear screen if needed 

gosub 950 ' • analyze heart rate 

42 hrspecsum#=zspectsum*2# 

15 gosub 900 1 •••.analyze A/D data (from floppy 

43 respspecsum#=zspectsum*2# 

gosub 15000 

' calculate spectral amplitudes 

20 gosub 16000 

save trend data 

datacycle=cyclewait : wend 
'end auto data analysis cycle 

25 



49 

30 if savekey$="c" then gosub 60 

1 print timer counts 
if savekey$="f " then gosub 900 
1 fft A/D buffer contents 
if savekey$= ,! F" then gosub 950 

35 1 fft heart rate buffer contents 

if savekeyS^'g" then gosub 12700 
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1 graph current A/D buffer 
if savekey$="G" then gosub 12710 
1 graph current heart rate buffer 
if savekey$= M h" then gosub 90 
5 1 (no) plot histogram 

if savekey$="p" then gosub 91 
1 (no) print trends 
if savekey$=" i" then gosub 80 
1 unmask interrupt 3 
10 if savekey$="I" then gosub 81 

'unmask interrupt 4 
if savekey$= M q n then goto 9996 
1 quit 

if savekey$=" r " then gosub 50 
15 1 print heart beats 

if savekey$ = M S ,f then gosub 800 

analyze data in disk file (set fdflag) 

if savekey$= M t" then gosub 16500 

1 print out the trends 
20 if savekey$="x n then els 'clear screen 

if savekey$= M #" then gosub 100 

1 reset sampling rate 

if savekey$="? M then gosub 700 'help 
savekey$=" M 



25 



goto 41 



'print present value of heartbeats 

30 

50 locate 24,1 : gosub 20000 

call rdbeat (heart , sync) 

print "heart beats: " ; heart , "sync pulses: 
" ;sync;time$; 
35 return 
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1 print present value of counters 
60 out con8253,0 'latch timer 0 

tlow0=inp( timer 0) 
5 thighO=inp{ timerO ) 

out con8253,&h40 'latch timer 1 

tlowl=inp ( timerl ) 
thighl=inp( timer 1) 

out con8253,&h80 'latch timer2 

10 tlow2=inp { timer 2 ) 

thigh2=inp( timer 2 ) 
locate 24,1 : gosub 20000 

print "timerO: " ; tlowG+thighO*256 ; tab{ 20 ) ; " 
timerl : " ; tlowl+thighl*256; 
15 61 print tab ( 40 ) ; "timer 2 : " ; tlow2+thigh2*25.6# ; 

return 



20 1 print out interrupt controller parameters: 

1 entry point for IHQ3 
80 mask=inp(&h21) : mask=mask xor 8 : out &h21,mask 

goto 82 

' entry point for IRQ4 
25 81 mask=inp(&h21) : mask=mask xor 16 : out 

&h21,mask 
82 mask=inp( &h21) 

locate 24,1 : gosub 20000 
print "8259 IMR( interrupt mask regsiter)= 
30 " ;mask; n ;hex$ (mask) ; 

return 



35 



1 (re) set sampling rates 

1 set timer'O to 16 bit square wave rate 
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' generator mode 

1 set timers 1,2 to 16 bit rate generator mode 
100 out con8253, &h36 

out con8253,&h74 
5 out con8253,&hB4 

' ... set real time multiplier 

105 locate 23,1 : gosub 20000 

input "real time multiplier: ,f ,rt.mult 
10 rt .multqual=0 

• if rt.mult=l then rt •multqual=l 
if rt.mult=2 then rt •multqual=2 
if rt.mult-4 then rt .mul tqual=3 
if rt.mult=8 then rt •multqual=4 
15 if rt •multqualoQ then goto 110 

beep : goto 105 

' get heart rate resolution desired to reset 
' timerO reset value 
locate 1,1 : gosub 20000 

input "heart rate resolution: (11,23,45/91,181 
usee) ",hr-resol 

25 1 check heart rate resolution validity 

" hrqual=0 

if hrresol=ll then hrqual=l 

if hrresol=23 then hrqual=2 

if hrresol=45 then hrqual=3 
30 if hrresol=91 then hrqual=4 

if hrresol=181 then hrqual=5 

if hrqualoO then sreset=sresetval(hrqual) : 
goto 120 

beep : goto 110 
35 1 invalid heart rate resolution 



20 

110 
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1 sreset=27 

5 



1 sreset=54 

10 



1 sreset=108 

15 



' sreset=216 

20 



1 sreset=432 

25 



'set timer 0 to 88384Hz 
'timebase (11.3 usee res 
1 (2.38MHz/27) (max resp 
'samples then 54 Hz) 

'set timer 0 to 44192Hz 
'timebase (22.6 usee res 
1 (2.38MHz/54) (max resp 
•samples then 32Hz) 

'set timer 0 to 22096Hz 
'timebase (45.3 usee res 
* (2.38MHz/108) (max resp 
•samples then 16Hz) 

•set timer 0 to 11048Hz 
•timebase (90.5 usee res 
' (2.38MHz/216) (max resp 
'samples then 8Hz) 

•set timer 0 to 5524Hz 
timebase (181 usee res 
• (2.38MHz/432) (max resp 
samples then 4Hz) 



' . « .set respiratory sampling rate 

120 locate 2 f l : gosub 20000 

30 print "respiratory sampling rate: ( 4^ ; 

twopwr=4 : for i=hrqual+r t .multqual to 5 : 
t wopw r = t wopw r + 1 wop w r 

print using " , ##" ; twopwr ; : next i : print " 
Hz) "; 

35 input respsampl 
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1 check respiratory sampling rate validity 
respqual=0 : respsampl • ef f =r espsampl*rt •mult 
if respsampl=4 then respqual=l 
if respsampl=8 then respqual=2 
if respsampl=16 then respqual=3 
if respsampl=32 then respqual=4 
if respsampl=64 then respqual=5 
if respqual=0 or respqual+hrqual+rt ,multqual>7 
then beep : goto 120 

resprst=resprstval ( 7-hrqual-respqual- 
rt •multqual) 

set cycle delay time between 

15 1 analyses 

130 locate 3,1 : gosub 20000 

input "waiting time between cycles: " ,dropcycle 
if dropcycle<0 or dropcycle>5 then beep : goto 
130 

20 cyclewait=0-dropcycle 

.out timerO , ( sreset mod 256) 
1 system timebase generated here out 
' timerO, (sreset\256) 



25 



30 



out timerl, ( resprst mod 256) 

' timer 1 counts timebase and outputs out 

1 timerl, ( resprst\256 ) 

1 the respiratory sampling rate 

out timer2 f 0 

! set timer 2 as an overflow counter for the 
1 out timer 2,0 

' number of overflows (65536 counts) 



35 
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200 timer 2over#=65536# 

1 overflow value for timer2 

201 zlover^resprst 1 reset count for timerl 

202 zlfreq=14318180#/6#/sreset 

5 1 timerl input clock frequency 

203 zhrsampler=zlover/zlf req 

1 timerl output=sampling interval 

204 segment . time=f f tsize*zhrsampler 

205 zlf req. real=zlf req/rt . mult 

10 1 real time used to calculate HR 

206 zhrsampler .real=zlover/zlf req. real 

• .respiratory peak search 

1 parameters 
15 210 minrespf rq#=.2# 

1 start at frequency (in pixels) 

211 minresp=minrespfrq#/respsampl*1024 

212 combwidth#=^032# 

use comb tooth width (in pixels) 
20 213 combpix=combwidth#/respsampl*10 24 

214 if combpix<=0 then combpix=0 

1 . . . .low frequency 

peak/integration parameters 
25 220 pixel . 04=cint ( 40 . 96#/ff tsampl ) +1 

1 pixel for .04Hz 

221 pixel . 10=cint ( 102 . 4#/f f tsampl) +1 
1 pixel for .10Hz 

222 f f t . expans ion=r espsampl/f f tsampl 

30 

if datacycle=0 then datacycle=-l 
if recordlno=0 then return 
1 on startup don't delay 
' exclude the current data segment 
35 ' from analysis since changes in 

' sampling rate will introduce glitches 
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return 



1 set floppy disk flag (fdflag) to analyze data 
1 s_tored on floppy (resp) 
800 fdflag=l 

locate 23,1 : gosub 20D0G : input "record 
10 number: " ,fdrecord 

if fdrecord>=l and f drecord<=recordlno then 

gosub 12700 : return 
locate 24,1 : gosub 20000 : beep : print 
"invalid record number"; 
15 return 



1 set up data for fft here 
20 1 get analog data from the A/D 

900 gosub 12700 1 get analog data and plot 

901 for i=l to fftsize : zdata{ i ) =ydata ( i ) : next i 

902 locate 23,1 : gosub 20000 : print "A/D buffer is 

transformed"; 

25 

xmins=330 : xmaxs=630 : ymins=102 : ymaxs=167 
call swindow ( xmins , xmaxs , ymins , ymaxs ) 

glabel=3 ' plot label is "resp spect" 

30 gosub 10000 1 fft 

return 

1 get heart rate data for fft 

950 locate 23,1 : gosub 20000 : print "heart rate is 
35 transformed"; 

951 gosub 12710 1 get hr function and plot it 
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952 for i-1 to fftsize : zdata(i)=zhr ( i) : next i 

953 xmins=330 : xmaxs-630 : ymins=28 : ymaxs=93 
9 54 call swindow(xmins,xmaxs,yminS/ymaxs) 

5 

955 glabel=4 1 plot label is "hr spect" 

956 gosub 10000 1 fft 

1 save spectrum in spec.hr buffers 
10 960 for i=0 to 512 

' 9 61 zspec.hb. real(i)= zreal(i) : 

zspec . hb . imag ( i ) =z r imag ( i ) 
962 next i 

15 return 



20 

■ exstall the interrupt and print vector 
9996 els 

1 make sure interrupts are off before 
removing handlers 
25 mask=inp{&h21) : mask=mask or 24 : out &h21 # mask 

1 remove interrupt handlers 

screen 0 

30 locate 4,1 

gosub 19000 

call exstint 

locate 5/1 

gosub 19000 
35 locate 21,1 
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1 close files after storing last bit of data 
buf f erno=0 

call rdbuf (fdbuf lptr ,buf f erno) 
5 put #1/ recordlno+1 

buf f erno=l 

call rdbuf (fdbuf 2ptr, buf f erno) 
put #2 , record2no+l 
buf f erno=2 

10 call rdbuf (fdbuf 3ptr, buff erno) 

put #3 / record3no+l 



15 



close #1,#2,#3,#10 



' and quit 
9999 stop 



20 . 



1 FFT ROUTINE 
i 

25 1 set up the data 

10000 zreal(0)=0# 

10001 zrimag(0)=0# 

10002 zreal(npair+l)=0# 
30 10003 zrimag(npair+l)=Q# 

1 compute mean value of array 

10004 zmean=0# 

10005 for i=l to fftsize : zmean=zmean+zdata ( i ) 
35 : next i 

10006 zmean=zmean/10 24# 
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10007 for k=l to npair : j=k+k-l : zreal(k)=zdata 

{ j ) -zmean 

10008 zrimag(k)=zdata( j+1) -zmean : next k 



10 



15 



20 



25 



10009 
10010 



30 



10011 

10012 
10013 
10014 
10015 
10016 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
10024 
10025 
10026 



locate 24,1 : gosub 20000 
print "arrays initialized at 
" ; time$ ; space$ { 20 ) ; 



fft routine <fftandift> begins here 

locate 24,1 : print "entering fft routine at 
" ; time? ; space$ ( 20 ) ; 
k=0 

for j=l to npair-1 : i=2 
ndivi=npair/i 
if k<ndivi then 10017 

k=k-ndivi : i=i+i : goto 10014 
k=k+ndivi 

i-f k<=j- then 10025 
za=zreal { j+1) 
zreal{ j+l)=zreal(k+l) 
zreal(k+l)=za 
za=zrimag( j+1) 
zrimag( j+l)=zrimag(k+l) 
zrimag(k+l)=za 
next j 

' locate 24,l:print "bit reversal completed at 
* ";time$;space$(20) ; 



35 



10030 g=l : zp=l# 

10031 for i=l to Ipower : gosub 30000 
'check if disk requires service 

10032 'locate 24,l:print "entering stage 



at 
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1 time " ;time$; spaceS (20) ; 

10033 if i=l then zsign=-l# else zsign=l# 

10034 zc=l# : ze=0# 

10035 zq2=(l#-zp)/2# : if zq2<=0# then zq=0# 

zq=sqr ( zq2) 

10036 zp2=(l#+zp)/2# : if zp2<=0# then zp=0# 

zp=zsign*sqr ( zp2 ) 

10037 itwog=g+g 



else 



else 



10 



15 



20 



25 



10040 
10041 



10042 
10043 
10044 
10045 
10046 
10047 
10048 
10049 
10050 
10051 
10052 
10053 
10054 
10055 

10056 



30 



for r=l to g 

for j=r to npair step itwog 

k=j+g : if k>npair then print "kjg 
over» ";k;j;g 

za=zc*zreal (k) +ze*zrimag( k ) 

zb=ze*zreal ( k ) -zc*zrimag ( k ) 

zreal(k) =zreal(j) -za 

zrimag( k) =zrimag( j ) +zb 

zreal(j) =zreal(j) + za 

zrimag( j )=zrimag( j )-zb 
next j 

za=ze*zp+zc*zq 

zc=zc*zp-ze*zq 

ze=za 
next r 
g=itwog 
next i 

'locate 24,l:print "entering final stage at 

" ; time$ ; space$ ( 20 ) ; 
gosub 30000 

1 check if disk requires service 



35 



10060 za=4#*atn(l#)/znpair 

10061 zp=cos(za) 

10062 zq=sin(za) 

10063 za=zreal(l) 

10 064 zreal(l)=za+zrimag( 1) 
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10065 zrimag{l)«za-zrimag(l) 

10066 zreal(l)=zreal(l>/2# 

10067 zrimag(l)=zrimag(l)/2# 

10068 zc=l# : ze=0# 

5 

10070 j=2 

10071 while j<npair/2 

10072 za=ze*zp+zc*zq 

10073 zc=zc*zp-ze*zq 
10 10074 ze=za 

10075 k=npair-j+2 

100 76 za=zreal{ j.)+zreal( k) 

10 077 zb=( zrimag( j ) +zrimag(k) ) *zc-(zreal( j )- 

zreal(k) ) *ze 
15 10078 zu=zrimag( j)-zrimag(k) 

10079 zv=( zrimag( j }+zrimag(k) ) *ze+{ zreal( j )• 

zreal(k) ) *zc 

100 80 zreal( j )=( za+zb)/2# 

100 81 zrimag( j )=( zu-zv)/2# 

20 10082 zreal(k)=(za-zb)/2# 

100 83 zrimag(k)=-(zu+zv)/2# 

10084 j=j+l : wend 

10 085 zrimag( npair/2+l)=-zrimag(npair/2+l) 

25 10090 for j=2 to npair 

10091 zreal(j)=zreal(j)/znpair/2# 

10092 zrimag( j )=zriinag( j )/znpair/2# 
. 10093 next j 

10094 zreal ( l)=zreal{l)/znpair 

30 10 09 5 zrimag( l)=zrimag ( l)/znpair 



' fft routine now completed 



35 10100 locate 24,l:print "fft completed 

" ; time$ ; space$ ( 20 ) ; 
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. . . integrate spefctrum 

sum up the spectrum noting that only the 

first npair elements of 
the fft are valid 

(npair+1 to fftsize are complex conjugates 
of 1 to npair and are 
not calculated) 
10101 zspectsum=0# 
10 10102 zsummax=0# 

10103 ipeak=-l 

10104 for i=l to npair 

10105 zadd=fnzmag(zreal(i) ,zrimag(i) ) 

10106 zspectsum=zspectsum+zadd 

15 10107 if zadd<=zsummax then 10110 

10108 zsummax=zadd 

10109 ipeak=i 

10110 . next i 



20 



25 



30 



graphing routine for fft spectra 

10111 'locate 1,1 : gosub 20000 

10113 'print "total spectral weight 
<variance>: " ;zspectsum*2#; 

10114 'locate 2,1 : gosub 20000 

10115 'print "peak weight : "/•zsummax;" peak 
frequency 2 * "; 

10116 'print ( ipeak-l#)/f f tsize*respsampl; 

10117 gosub 12730 

' fgraph of spectrum 

10118 return 



35 
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i ^„ . _ i 

1 UTILITIY ROUTINES HERE 
5 ■ ' 

1 graphing routine: gets data from A/D buffer 
1 and displays graph 
12700 glabel=l 
10 numpts=f f tsize 

indata=0 
1 local flag 

1 indicating data is read while indata=0 and 
fdflag=0 

15 dataptr=varptr (ydata(l) } 

bufferno=0 'read A/D buffer 

call rdbuf (dataptr ,buf f erno) 
indata=l 
wend 

20 

while indata=0 and fdflag=l 

gosub 30000 
1 check file buffer to see if service is 
1 required 
25 get #l,fdrecord 

for i=l to 1024 : 

ydata(i)=cvi(mid$ (analog$ /i+i-1/ 2) ) : next : 

indata-1 

wend 

30 

xmins=10 : xmaxs=310 : ymins=102 : ymaxs=167 
call swindow( xmins /Xitiaxs / ymins / ymaxs ) 



35 



xmind=0 : xmaxd=300 : ymind=0 : ymaxd=255 
call dwi ndow ( xmi nd , xmaxd , ymi nd , ymaxd ) 



WO 86/07248 



PCT/US86/0U93 



- 217 - 

' max A/D value is 255 
call clrwindw 
call axes 
goto 12770 



1 entry point for plot of heart rate function 

12710 screen 2 1 get heart rate function 

12711 glabel=2 

10 12712 numpts=f f tsize 

12713 gosub 13000 

12714 ibeg=adrd+2 

12715 for i=l to fftsize : if ibeg=i then 

ibeg=ibeg+f f tsize 
15 12716 ydata(i)=cint(zhr (ibeg-i) ) : next i 

xmins=10 : xmaxs=310 : ymins=28 : ymaxs=93 
call swindow ( xmins , xmaxs , ymins , ymaxs ) 



20 



xmind=0 : xmaxd=30Q : ymind=0 : ymaxd=250 
call dwindow ( xmi nd , xmaxd , ymi nd , ymaxd ) 
1 max hr is 250 bpm 



25 



goto 12770 



30 



35 



1 entry point for plotting spectra (screen 
1 windows already setup) 

12730 zgain=250#/zsummax 

12731 for i=l to npair 

12732 ydata( i)=cint ( zgain*f nzmag 

(zreal(i) ,zrimag(i) ) ) +1 

12733 next i 

12734 numpts=npair 

• max spectral element (scaled to 250) 
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xmind=0 : xmaxd=300 : ymind=0 : ymaxd=255 
call dwi ndow ( xmi nd , xmaxd , ymi nd , ymaxd ) 



12770 call clrwindw 
call axes 



10 



12780 dataptr=varptr (ydata(l) ) 

gdataptr=varpt r { ydatag ( 1 ) ) 

call scaler ( datapt r , gdataptr , numpts ) 

•correctly selects screen width 



15 



1 entry point for plot of ydatag(i) 
12790 x=xmins 

numvalg=xmaxs-xmins+l 

linemask=&hf f f f 

gdataptr=varpt r ( ydatag { 1 ) ) 

call f graph ( gdataptr , numvalg , x , linemask ) 



20 



1 graph labels printed here 

on glabel goto 12800,12810,12820,12830 

return 1 invalid label 



25 



1 respirations in time domain 
12800 if fdflag=l then locate 14,30 : 
"recr^fdrecord : fdflag=0 
return 



print 



30 



1 heart rate in time domain 
12810 locate 5,3 

print using "HR= ### bpm M ;cint(zavghr) 
return 



35 



1 respiratory spectrum 
12820 locate 14,63 : print 
locate 15,63 : print using 
##Hz) M ;respsampl\2 



Resp Spect 
(0- 



WO 86/07248 



- 219 - 



PCT/US86/01193 



gosub 14000 

1 respiratory rate from spectrum by comb method 
locate 14/3 

1 print respiratory rate with time tracing 
5 print using "RR=### bpm 

( rcf *# . ###) 11 ; cint { respf req#*60 ) , r espcombf rac# 
return 

1 heart rate spectrum 
10 12830 locate 4,63 : print " HR Spect "; 

locate 5,63 : print using " ( 0-##Hz) " ; f f tsampl\2 
return 



15 



20 



heart rate functions: 

read times from memory 
convert to heart rate function 
PFT resulting buffer 
display the spectral amplitudes 



25 



30 



13000 call rdptrs(adrd,hbrd,adf lag r hbf lag) 

13002 if record2no=0 then startup=l else startup=0 

startup is special 

13003 hbptrl=varptr(hbl(l) ) 

13004 bufferno=l 

'read heart beat buffer 1 (least sig. cts 

13005 call rdbuf (hbptrl,buf f erno) 

13006 locate 24,1 : gosub 20000 

13007 print "hbrd= ";hbrd; : anal .beat=hbrd 



35 



13008 hbptr2=varptr (hb2(l) ) 

13009 bufferno=2 

'read heart beat buffer 2 (most sig. cts 

13010 call rdbuf (hbptr2 ,buf f erno ) 
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13011 for i=0 to 100 : histogram( i)=0 : next i 
'initialize histogram for deglitching (.4-40Hz) 

13012 histomax#=zlfreq.real*2.5# 

13013 histoscal#=zlfreq.real/40# 



10 



15 



20 



13020 
13022 
13023 
13024 



25 



compute time differences for entire hb array 
and save in zdata 
from the top down 

zdata will contain the latest hr intervals , 
with the latest in 

(hbrd) and older intervals for decreasing 
array index 

since the timers are decrementing , 
lstbeat<thisbeat 

(lstbeat is later , therefore smaller) 
this relation fails whenever there is a carry 
over (timer overflow) 

note: timerl overflows exactly fftsize times 
during one data segment 
lstbeat#=hbl(hbrd) : lstover#=hb2 (hbrd) 
hbnow=hbrd-l 

if hbnow<=0 then hbnow=ff tsize 

if startup=l and hbnow=ff tsize then return 1 no 
data yet 



30 



35 



13025 



13026 
13027 

13028 
13029 

13030 



numint=l 

1 valid intervals only (1 less than 
1 buffer size 
while numint<f ftsize 

thisbeat#=hbl(hbnow) 

1 check for overflow of overflow counter 
thisover#=hb2 ( hbnow ) 
if hb2( hbnow) <cint(lstover#) then 

lstover#=lstover#-timer2over# 
hbnow=hbnow-l 
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13031 
13032 

13033 
13034 



if hbnow=0 then hbnow=f f tsize 
if hbnow=ff tsize and startup=l then goto 
13048 

zdatnow=thisbeat#-lstbeat#+overdif#*zlover 
if zdatnow>=0 then goto 13047 'Terror 



10 



13040 
13041 
13042 
13043 



13044 



15 



if zdatnow>histomax# then goto 13044 
index=cint ( zdatnow/histoscal#) 
histogram( index=histogram( index )+l 
goto 13045 

•keep histogram of intervals (.2-20Hz: 
1 give 10% resolution @2Hz) extended 
• data lapses 

histogram(100)=histogram(100)+l 

1 extended data lapses 



20 



13045 zdata(nurnint)=zdatnow : numint=numint+l 

13046 lstbeat#=thisbeat# lstover#=thisover # 

13047 wend 

13048 numint=numint-l 



25 



30 



,...find the interval 
corresponding to mean heart rate 

1) find largest peak in 
•5-4Hz (2 pixels wide) 

2) calculate corrected 
mean interval 

3) calculate corrected 
interval variance 

4) set slewing 
parameters for HR 
generation 



35 



13050 
13051 
13052 



lstint=histogram(4) : hpeak=0 : hpeak.ht=0 
for i=3 to 40 : thisint=histogram( i ) 
if (thisint+lstint)>hpeak.ht then 
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hpeak.ht^thisint+lstint : hpeak-i 

13053 lstint^thisiiit : next i 

13054 approx.avg#=(hpeak-0.5#)*histoscal# 



10 



13060 zhistsum=0# : zhistsum2=0# 

13061 for i=l to numint : 

index=cint ( zdata ( i ) /approx . avg# ) 

13062 if index<=0 then index=l 

13063 zhistsum=zhistsum+zdata(i) /index : next i 

13064 avgint#=zhistsum/numint 



15 



13070 for i=l to numint : index=cint( zdata (i)/avgint#) 

13071 if index<=0 then index=l 

13072 zdif =zdata ( i ) /index-avgint# : 

zhistsum2=zhistsum2+zdif *zdif 

13073 next i 

13074 histvar#=zhistsum2/numint 



1 calculate deglitching parameters 
20 13081 varslew#=31.4#*sqr (histvar#)/respsampl 

■ 5x max slew (1Hz rfa) slew at least .05Hz 
• (3bpm)/beat infslew has infimum of slew 
1 maxima 
13082 min.maxslew#=. 05 
25 13083 infslew#=l#/(l#/avgint#- 

min •maxslew#/zlf req. real ) -avgint# 

13084 if maxslew#<inf slew# then maxslew#=inf slew# 

13085 supslew#=avgint#/5# 

'never slew more than 20% HR 
30 13086 if maxslew#>supslew# then maxslew#=supslew# 
13087 locate 1,1 : gosub 20000 ': print "maxslew: 
" ;maxslew# 



35 13100 



1 compute heart rate waveform next 
ztime=0# 

1 time for present heart rate signal 
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13101 
13102 
5 13103 
13104 

13105 

10 13106 



15 



20 



13107 
13108 
13109 
13110 
13111 
13120 



' pointer in zdata to present beat number 
1 of beats accepted 
intnow=l 
beatno=l : 

while zdata ( intnow )<=0 

intnow=intnow+l : if intnow>numint then goto 
13140 : wend 
zintlst=avgint# : zdropper=avgint# : 

zintnow=zdata( intnow) 
znext=zintnow/zlf req. real 

' time of previous heart beat deglitch first 
1 beat present heart rate keep statistics for 
' deglitching sampling rate determined by 

1 timers 

avgnow#=avgint# : gosub 13500 
zhrnow=60#*zlf req. real/zintnow 
zsum=zhrnow 
zsum2=zhrnow*zhrnow 
zincr=zhrsampler . real 
numsig=l 

1 point to heart rate function 



13121 while numsig<=f f tsize and ztime<=znext 

13122 zhr ( numsig) =zhrnow : numsig=numsig+l : 
25 ztime=ztime+zincr 

13123 wend: zintlst=zintnow 

13124 if numsig=fftsize+l then goto 13142 

13125 intnow=intnow+l : if intnow>numint then goto 
13140 

30 13126 zintnow=zdata( intnow) : if zintnow<=0 then 

goto 13125 

13127 znext=znext+zintnow/zlf req. real : gosub 

13500 1 deglitcher 

13128 zhrnow=60#*zlf req. real/zintnow 

35 13129 zsum=zsum+zhrnow : zsum2=zsum2+zhrnow*zhrnow 

: beatno=beatno+l 
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13130 



goto 13121 



10 



13140 zavghr=zsum/beatno 

1 averaged over number of beats 

13141 while numsig<=f f tsize : zhr (numsig)=zavghr : 

numsig=numsig+l : wend 

13142 zavghr=zsum/beatno 

13400 locate 24,13 : print " avg hr(bpm): ";zaxghr; 

1 zhr now has heart rate function 

13401 print " •..heart rate function computed 11 ; 



15 



20 



25 



30 



13500 
13501 
13502 
13503 
13504 



return 



deglitching of three types employed here: 

correction of premature triggers (not 
yet) 

correction of dropped beats, (not yet) 
slew rate limiting of final output (a 
crude bandlimiter) 
f abs(zintnow-zintlst)<maxslew# then return 
check for dropped beats 
numdrop=cint(zintnow/avgnow#) : if numdrop<=0 

then goto 13510 
if abs(zintlst-zintnow/numdrop)>maxslew# then 
1350# 

zintnow=zintnow/numdrop : sound 1200, sounder : 

return 'dropped beat 

if numdrop>l then goto 13520 else goto 13510 



35 



check for premature trigger (note: 
premature trigger assump- 
tion remains in effect 
only for glitched time 
(if added portion is an 
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acceptable beat, 
(that's how it's used; 
otherwise slew rate 
(limiter extends 



10 



13510 
13511 
13512 



' assumption to added portion 

if abs ( zintnow+zdata( intnow+l)_ 
zintlst)>maxslew# then 13520 
zintnow=zintnow+zdata( intnow+1) 
1 assume premature trigger here 
sound 1400-, sounder : return 



13520 



15 



' slew rate limiter 
sound 600 , sounder : zintnow=zintlstr 



return 



20 



25 



calculating the respiratory rate using the 

comb method 
[spectrum in ydata(*)] 

start at frequency : 

( in pixels) : 

use comb tooth width: 

( in pixels) s 



minrespf rq# 
minresp 
combwidthf 
combpix 



30 



14000 



14001 
14002 
14003 



maxcomb#=0# z respcomb=0 : combstep=combpix\2+l 
1 for loop shifts comb beginning to different 
1 frequencies 

for comb=minresp to npair step combstep 
curcomb#=0# : harmbeg=comb-combstep+2 
lastbeg=harmbeg+9*comb : if lastbeg>npair 
then lastbeg=npair 



35 



' while loop adds up 10 teeth 
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10 



15 



1 (harmonics) in the comb 

14004 while harmbeg<=lastbeg 

14005 toothpt r=harmbeg 

14006 lstooth=harmbeg+combpix : if 

lstooth>npair then lstooth-npair 

1 this while loop adds one tooth's 
1 contribution to comb 

14007 while toothptr<=lstooth 

14008 curcomb#=curcomb#+ydata( toothptr ) 

14009 toothptr=toothptr+l 

14010 wend 

14011 harmbeg=harmbeg+comb 

14012 wend 

14013 if curcomb#>maxcomb# then maxcomb#=curcomb# 

respcomb=comb 

14014 next comb 



14050 locate 3,1 : gosub 20000 : print "respiratory 
20 comb fraction: 11 ; 

14051 "curcomb#=0# : for i=l to npair : 

curcomb#=curcomb#+ydata(i) : next i 

14052 respcombf rac#=maxcomb#/curcomb# : print using 

" # • ### " ; respcombf rac# ; 

25 

' respcomb now has respiratory frequency or a 
1 subharmonic 

• to decide which is the first harmonic look at 
1 weight in each tooth 

30 1 of the comb; a higher harmonic comb must 

1 contribute at least double 

1 amplitude to be designated as the fundamental 

• (4xspectral weight) 



35 14100 maxtooth#=0 : resptooth^O 

combpix 



harmbeg=respcomb+l- 
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14101 lastbeg=harmbeg+9*respcomb : if lastbeg>npair 

then lastbeg=npair 

14102 while harrabeg<=lastbeg 

14103 toothptr^harmbeg : curtooth#=0# 

14104 lstooth=harmbeg+combpix+combpix 

14105 if lstooth>npair then lstooth=npair 



10 



15 



14110 
14111 

14112 

14120 
14121 



1 add up one widened tooth 
while toothptr<=lstooth 

curtooth#=cur tooth#+ydata ( toothptr ) 

: toothptr=toothptr+l 
wend 

1 compare to previous teeth 
if curtooth#<4*maxtooth# then goto 14130 
maxtooth#=curtooth# : 
resptooth=harmbeg 



20 



14130 
14131 



harmbeg^harmbeg+respcomb 
wend 



25 



• compute respiratory frequency as peak 
■ average 

14200 toothptr=resptooth : respfreq#=0# 

14201 lstooth=toothptr+combpix+combpix 

14202 if lstooth>npair then lstooth=npair 



■ average frequency over fundamental 

■ peak 

30 14210 while toothptr<=lstooth 

14211 respf req#=respf req#+ydata( toothptr ) 

*cdbl(toothptr-l) 

14212 toothptr=toothptr+l 

14213 wend 

35 14214 respf req#=respf req#/maxtooth#/1024#*respsampl 
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14220 resp.lopixel=cint( (respf req#- 

.06#)/respsampl*1024#)+l 
1 integration limits 

14221 resp.hipixel=cint ( { respf req#+ . 06# ) 
5 /respsampl*1024#)+l * 

return 



10 



15 



• spectral amplitude calculations 

15000 lfa#=0# : rfa#=0# : coherence#=0# 

15001 for i=pixel.04 to pixel. 10 

15002 If a#=lfa#+fnzmag( zspec. hb.real(i) , 

zspec . hb • imag ( i ) ) 

15003 next i 

15004 lfa#=lfa#+lfa# 



15010 for i=resp".lopixel to resp.hipixel 
20 15011 rf a#=rf a#+f nzmag ( zspec . hb • real ( i ) , 

zspec ♦ hb . imag ( i ) ) 

15012 next i 

15013 rfa#=rfa#+rfa# 

25 15020 for i=l to 512 

15021 coherence#=coherence#+f nzcoher 

(zreal(i) , zrimag(i) 

zspec. hb.r eal( i) , 
zspec . hb . imag ( i ) ) 

30 15022 next i 

15023 coherence#=coherence#/zspectsum 



35 



15030 ratio#=lfa#/rfa# 

15031 cratio#=lfa#/coherence# 

15040 locate 6,60 : print using "lfa: ##.###" ;lfa#; 
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15041 locate 7/60 : print using "rfa: ##.### 

(##.###)"; rfa#, coherence*; 

15042 locate 8/58 : print using "ratio: ##.### 

(##.###) "; ratio* ,cratio# ; 

return 



' storing trend data on floppy disk (fr±e #10) 



10 


16000 


lset 


hr$=mkd$ ( zavghr ) 




16001 


lset 


rr$=mkd$ ( respf req#) 




16002 


lset 


rcf $=mkd$ ( respcombf rac# ) 




16003 


lset 


lfa$=mkd$(lfa#) 




16004 


lset 


rfa$=mkd$(rfa#) 


15 


16005 


lset 


coher$=mkd$ ( coherence* ) 




16006 


lset 


ratio$=mkd$ ( ratio* ) 




16007 


lset 


cratio$=mkd$ ( crat io# ) 




16008 


lset 


hr integral$=mkd$ ( hrspecsum* ) 




16009 


lset 


respintegral$=mkd$ ( respspecsum*) 


20 


16010 


lset 


t imes t amp$ = t ime $ 




16011 


lset 


hbrecord$=mki$ ( analr ec . hr ) 




16012 


lset 


adrecord$=mki$ (analrec.ad) 




16013 


lset 


hbeat$=raki$ { anal . beat ) 




16014 


lset 


samplrate$=mki$( respsampl) 



25 



recordl0no=recordl0no+l : put #10,recordl0no 



return 



30 



35 



1 reading trend data from floppy disk (file #10) 

16500 if recordl0no<=l then return 

16501 els 

16510 xmins=10 : xmaxs=310 : ymins=2: ymaxs=127 : 
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16511 



numvalg=xmaxs-xmins+l 
call swindow ( xmins / xmaxs / ymins , ymaxs ) 



16512 call clrwindw 

5 16513 call axes 

16520 numpts=recordlOno 

16521 lfa.beg=recordlOno 

16522 rfa.beg=2*recordl0no 
10 16523 ratio. beg=3*recordl0no 

16524 lastydata=4*recordl0no 

16525 Inl0#=log(10#) 

16526 xscale#=numvalg/recordlOno 

15 ' get trend information from the disk file 

16530 for temprec=l to recordlOno 

16531 get #10,temprec 

1653 2 ydata(temprec)<L97-.78#*cvd(hr$) 
16533 ydata{ temprec+lfa.beg ) =19*7-19 . 5 *cvd{ If a$ ) 

20 16534 ydata ( temprec+rf a. beg) =197-19. 5*cvd(rfa$) 

16535 ydata ( temprec+ratio .beg ) =100- 

log(cvd(ratio$) )/lnl0#*45# 

16536 next temprec 

25 16537 for i=l to lastydata : if ydata( i)<ymins then 

ydata(i) =ymins 
16538 if ydata (i)>ymaxs then ydata ( i)=ymaxs : 

next i 



30 1 plot trends here 

16540 for trend=0 to 3 : trendof f =trend*record!0no 

16542 gctr=l : ydatalst=ydata(l) : 

ydatag ( 1 ) =ydatalst 

16543 for temprec=2 to recordlOno : 
35 gctrmax=temprec*xscale# 

16544 gdif=gctrmax-gctr : if gdif<=0 then goto 
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10 



15 



20 



16545 

16546 

16547 

16548 
16550 
16551 
16552 

16553 
16554 

16560 
16561 
16562 
16563 

16600 



16550 

ydatadif=ydata( temprec+trendof f )- 

ydatalst : part=0 
while gctr<gctrmax : gctr=gctr+l : 
part=part+l 
ydatag ( gctr ) =ydatalst+ 

(part/gdif )*ydatadif : wend 
ydafcalst=ydata( temprec+trendof f) 
next temprec 
linemask=linetype( trend) : x=xmins 
gdataptr=varptr(ydatag(l) ) : numvalg=xmaxs- 
xmins+1 

call f graph ( gdatapt r , numvalg , x , linemask ) 
next trend 



locate 2,42 
locate 3,42 
locate 4,42 
locate 5,42 

req.cls=l 

return 



print "HR (0-250 bpm)"; 
print "If a (0-10 bpm*2)"; 
print "rfa (0-10 bpm^2)"; 
print "ratio (.01-100)"; 



25 



' subroutine to print out the interrupt vectors 

30 19000 def seg=0 

print "IRQ3 @0B*4H: " ;hex$ (peek ( Sh2C) ) ; 

' ,M, ;hex$(peek(&h2D));" "; 

print hex$ (peek ( sh2E) ) ; 

• " ■ ; hex$ ( peek ( &h2F ) ) ; tab ( 40 ) ; 
35 print "IRQ4 @0C*4H: " ;hex$ (peek ( Sh30 ) ) ; 

' M,, ;hex$(peek(&h31) ) "; 
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print hex$(peek(&h32));" 11 ;hex$ (peek( &h33 ) ) ; 
return 

5 • routine to clear the present line 

20000 csnow=csrlin: locate csnow,l:print 
return 



10 



15 



20 



25 



30 



30000 
30001 



30010 

30011 
.30020 

30021 
30030 

30031 

30040 
30041 
30042 

30050 

30060 



1 check pointers to see if any disk files need 
1 to be written 

call r dpt r s ( adwr , hbwr , adf lag , hbf lag ) 
if adflag=adflaglst and hbf lag=hbf laglst then 
return 



while adf lag>recordlno+l : 
print "data #1 loss";. 
recordlno=adf lag-1 
while hbf lag>record2no+l : 
print "data #2 loss"; 
record2no-hbf lag-1 
while hbf lag>record3no+l : 
print "data #3 loss"; 
record3no=hbf lag-1 



beep : locate 23 ,1 
: wend 

beep : locate 23 ,1 
: wend 

beep : locate 23 ,1 
: wend 



if adf lag<recordlno+l then goto 30050 
recordlno=adf lag : put #1, adf lag 
if datacycle<=0 then datacycle=datacycle+l 
'if not processing, begin 
if hbf lag=record2no+l then record2no=hbf lag : 

put #2 , hbf lag 
if hbf lag=record3no+l then record3no=hbf lag : 
put #3 , hbf lag 



35 



locate 3 r l : gosub 20000 
records: " ;adflag; print 



: print "current file 
" (#1) ";hbflag;" 
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(#2)»; 

adf laglst=adf lag : hbf laglst=hbf lag 
return 
end 



10 



15 



20 



25 



30 



35 
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page 66 f 80 

sync7s.asm - an assembler routine to handle interrupts 
from IRQ4 and collect 

synchronous data from the A/D (board 2 
configuration assumed) 
The routine checks A/D readings for 
output validity 

Data is loaded by interrupts into both a 
10 ; processing buffer and 

a disk file I/O buffer to allow quick 
archival; an overflow 
flag signals when a disk file buffer 
should be stored and 
15 ; also indicates whether the disk buffer 

was corrupted. 

To acknowledge storage of a disk buffer 
one must reset the 
overflow flag using <ackfdio> 
20 ; Last revision: 3 May 1985 



; 8088 interrupt location 



25 



absO 



30 



IRQ3_int 



segment at 0 ; absolute memory segment 

; allows placement of 
.•interrupt address 

org 0BH*4 ; future heart beat 

interrupt handler resides 

dw 2 dup(?);at int 0B 



35 



IRQ4 int 



org 



dw 



QCH*4 ;8253 timebase interrupt 

;handler resides 
2 dup(?);at int 0C 
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absO 



ends 



int_buffer: area to save DOS 
dummy interrupt ptrs 



10 



int buffer 



segment 



;data segment containing 
;user interrupt buffer 



15 save int 



dw 4 dup(?) ;of fset for two DOS 

; interrupts saved 
;to be restored using 
;exstint 



20 int buffer 



ends 



25 



working storage for 
interrupts 



dseg_sync 



30 



segment 



;data segment for 
; interrupts 



35 



declare all variables public 

for use by other 
assembly level routines 
public ad_buf f er , ad_rd , ad_wr , sync_ ctr 
public hb_buf f erl,hb_buf f er2,hb_rd,hb_ 
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wr, heartbeats 



♦timebase local storage and 
buffer 



10 



ad_buf f er 
ad_rd 
ad_wr 
sync_ctr 



db 1024 dup(?) ; buffer for A/D 

values 

dw ? ;read indicator for A/D 

;disk buffer 
dw ? ; write pointer for A/D 

; buffer ( incrementing) 
dw ? ; counter for timebase 

; interrupt (overflows) 



15 



20 



25 



30 



.heart beat local storage and 

buffer 
note: for main clock 

14.318 180 MHz (osc) 
system clock 

4.772 727 MHz (clock) 
8253 clock 

2.386 353 MHz (ck8253) 

(ck8253 / 432) 
5.524 KHz (hb.clk) 
(ck8253 /596S92) 4 Hz 

(respck) 
hb.clk = 1381*respck 
sync.ctr overflow = 

16384 sec (4:33:04) 



hb bufferl 



hb buffer2 



35 



dw 1024 dup(?) ;heart beat time 

stamps for previous 1024 

dw 1024 dup(?) ; beats (2 words: 

hb.clk f sync.ctr ) 
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hb_rd 
hb wr 



dw ? ;read indicator for 

;heart beat disk buffers 
dw ? ;write pointer 

; (incrementing) for hb_buffer 



heartbeats 



dw 



;keep track of number of 
; beats processed 



10 



15 



20 



fdlptr 

fdlptroff 
fdlptrseg 

fd2ptr 

fd2ptroff 
f d2ptrseg 

fd3ptr 

fd3ptroff 
f d3ptrseg 



label dword 



dw 
dw 



dw 
dw 



dw 
dw 



.pointers to disk file buffers 



? 



label dword 



label dword 



; pointer to floppy disk 
file #1 buffer 
; (offset) 
; (segment) 

; pointer to floppy disk 
file #2 buffer 
; (offset) 
; (segment) 

;pointer to floppy disk 

file #3 buffer 
; (offset) 
; (segment) 



25 



dseg_sync 



ends 



30 



setup structures to allow access to; 
arguments pased by BASIC 



35 



; subroutine 
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instint ( f illptr , f 112ptr , f il3ptr ) 



frame rd 



5 savebpO 
saveretO 



B_fil3ptr 
B_fil2ptr 
B_fillptr 
frame rd 



10 



15 



20 



25 



f rame_rd 

savebpl 
saveretl 

BASIC_syncs 

BASIC_beats 

frame rd 



struc 



dw 
dd 



dw 



dw 



dw 



ends 



/define the stack 
/structure for passing 
; arguments to BASIC 
/caller's base pointer 
; return offset and 
/segment pushed by BASIC 
; offset of file #3 disk 
;buf f er 

;offset of file #2 disk 
/buffer 

/offset of file #1 disk 
buffer 



; subroutine rdbeat (BASIC_beats,BASIC_ 
; syncs) 

; define the stack 
; structure for passing 
/arguments to BASIC 
; caller's base pointer 
; return offset and 
; segment pushed by BASIC 
;place to return sync 
;pulses to BASIC 
; place to return heart 
; beats to BASIC 



struc 



dw 
dd 



? 



dw 



dw 



ends 



30 



35 



frame rdbuf 



savebp2 
saveret2 



; subroutine rdbuf (BASIC_ptr , whichbuf f ) 
struc ;define the stack 

^structure for passing 
/arguments to BASIC 
dw ? /caller's base pointer 

dd ? /return offset and 

/segment pushed by BASIC 
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whichbuff dw 



BASIC_ptr dw 



5 frame rdbuf ends 



10 



savebp3 
saveret3 

15 hbflag 

adf lag 



20 



BASIC hbwr 



BASIC adwr 



; place to select which 
; buffer to read 
; place to get pointer to 
; BASIC data array 



subroutine rdptrs 
; (adwr , hbwr , adf lag, hbflag) 



f rame_rdptrs struc 



dw 
dd 

dw 

dw 

dw 

dw 



f rame_rdptrs ends 



7 



define the stack 
structure for passing 
arguments to BASIC 
caller f s base pointer 
return offset and 
segment pushed by BASIC 
flag indicating disk 
file #1,#2 buffers full 
flag indicating disk 
file #1 buffer is full 
write pointer for heart 
beat buffer 
write pointer for ad 
buffer 



25 



.code segment begins here 



cseg_sync 
30 basic_dgroup 

porta 

portb 



35 



portc 



segment 'code 1 

group data , stack , const , heap , memory 

;defining link to BASIC 
equ 071CH ;port definitions for 

;8255 port expander 
equ 071DH ; these addresses are 

; decoded on the homemade 
equ 071EH ; board 
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control 

timerO 
timerl 
timer2 
con8253 



equ 071FH ; control word in the 

;8255 

equ 0704H ;8253 timerO register 
equ 070 5H ;8253 timerl register 

equ 0706H ;8253 timer2 register 
equ 0707H ;8253 control register 



10 



15 




;this routine reads the A/D every timerl 
;tick 

;and stores the point in the analog 
;buf f er 



tbase int 



20 



25 



30 



proc far ;this procedure is not 

;made public 
assume cs : cseg_sync , ds : dseg_ 
sync , es : nothing / ss : nothing 



push 

push 
push 
push 
push 
push 
push 
push 



ax 

bx 
cx 
dx 
si 
di 
ds 
es 



save registers used 
during interrupt 



35 



mov 



mov 



ax/dseg_sync ;set up segment 

^register for data area 
ds / ax } 
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mc 



mov 



increment counters/ decrement 
pointers 

; increment 
; interrupt counter 
; allow up to 20 
; rereads of A/D 



sync_ctr 
cx,20 



10 



mov 



in 



....get analog value from A/D and 

send to buffer 
dx,portb ;get analog 

; value from A/D 
al,dx ; 



15 



retry: 



mov bx,ad_wr ?and put analog 

;data pointer in bx 
mov ad_buf f er [bx ] , al 
;save analog value in ad_buffer 



chk adc: 



20 



25 



in al,dx ; reread adc and 

; check if previous 
cmp ad_buffer [bx] ,al ; value agrees 
je adc_ok ;if value is the 

;same we're done 
loop retry ; retry if retry 

; counter is not depleted 
;failure returns 
;last value read 



30 adc_ok: inc ad_wr ; increment write 

;pointer 

cmp ad_wr,1023 ;see if write 

pointer<=1023 
jle tbase_eoi ;if pointer is 

35 ;in range then finish 

int 
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►reset local ptr and load disk 
buffer for file #1 



10 



15 



20 



fidllp: 



xor ah/ ah ;zero ah as 

; upper byte of A/D reading 
mov ex, 1024 ;load counter 

;for 1024 repetitions 
lea si,ad_buffer ;load local 

;buffer address 
les di,fdlptr ;load pointer to 

;disk file #1 buffer 
lodsb ; repeat moves 

?1024 times (ds:si->es:di) 
s t os w ; con ve r t i ng 

; bytes to words 

loop fdllp ; 

mov ad_wr,cx ; reset write 

; pointer (wrap around)* 
inc ad_rd ; increment read 

; request for disk 



25 tbase eoi: 



mov 
out 



, • . .acknowledge interrupt to 
8259A 

al,20H ;send EOI to 8 259A 
20H,al ; 



30 



35 



pop 

pop 
pop 

POP 

pop 
pop 
pop 
pop 



es 

ds 
di 
si 
dx 
cx 
bx 
ax 



restore registers which 
were used 
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iret ; return to place where 

; interrupt occurred 



5 debugmsgl db 'this is the end of the time 

base interrupt 1 

tbase_int endp 

10 



heart beat interrupt handler (not accessible ; 
to BASIC) 



;this routine reads the local system 
; timers 

; every heart beat and stores the time in 
;the heart beat buffer for use in 
20 ; spectral analysis 



hbeat int 



25 



proc far ;this procedure is not 

;made public 
assume cs :cseg_sync,ds :dseg_sync 
assume es : nothing , ss : nothing 



30 



35 



push 

push 
push 
push 
push 
push 
push 



ax 

bx 
cx 
dx 
si 
di 
ds 



save registers during 
interrupt 
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push es 



mov 



mov 



inc 



ax,dseg_sync ,*set up segment 

r register for data area 
ds,ax ; 



heartbeats 



; increment heart 
; beat counter 



10 



15 



20 



25 



30 



35 



mov 

mov 

out 

mov 

in 

mov 

in 

xchg 

mov 
add 
mov 



..•.read counters and store 

result in hb_buffer 
dx,con8253 ;prepare to read 

;hbl.clk from timerl 
;by latching 
; counts in timerl 



al,40H 
dx,al 



dx, timerl 
al , dx 
ah,al 
al , dx 
al,ah 



/prepare to read 
;the latched value 

;from the timer 
;(low byte first) 
;save low byte 
? in ah 
;(high byte 
;last ) 

;get the bytes' 
; order right 



bx f hb_wr ;get write 

;pointer for hbjauffer 
bx f bx ; double to 

; point to a word 
hb_bufferl[bx] ,ax ;and store 

;hbl,clk counts 

.•read overflow counter from 
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10 



15 



20 



mov 
mov 

out 

mov 

in 

mov 

in 

xchg 
mov 



25 



inc 

cmp 
jle 



30 



35 



mov 



lea 



timer2 
dx,con8253 

al f 80H 



dx,al 

dx, timer2 

al/dx 

ah,al 

al,dx 

al,ah 



;prepare to read 
;hb2,clk from timer2 
;by latching 

; counts in timer 2 



; prepare to read 
;the latched value 
;from the timer 
; (low byte first) 
;save low byte 
;in ah 
; (high byte 
;last ) 

;get the bytes 1 
;order right in ax 



hb_buffer2[bx] ,ax ; store 

result in hb2.clk buffer 



.increment write pointer and 

check for buffer overflow 
hb_wr ; increment write 

;pointer 

hb_wr,1023 ;if hb_wr<=1023 

hb eoi ;then finish up 



....reset local ptr/load disk 
buffers for files #2, #3 
(routine takes about 15-20 
msec to fill disk buffer) 
cx,1024 ;load counter 

;for 1024 repetitions 
si,hb bufferl ;load local 
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10 



15 



20 



25 



30 



fd21pj 



fd31p: 



hb eoi; 



;buffer address 
les di,fd2ptr ;load pointer to 

;disk file #2 buffer 
movsw ; repeat moves 

;1024 times (ds:si->es:di) 
loop fd21p ; 
mov cx, 1024 ; load counter 

;for 1024 repetitions 
lea si,hb_buff er2 ;load local 

; buffer address 
les di,fd3ptr ;load pointer to 

;disk file #3 buffer 
movsw ; repeat moves 

;1024 times ( ds : si->es : di ) 
loop fd31p ; 
mov hb_wr,cx ; reset write 

; pointer (wrap around) 
inc. hb_rd ;.increment read 

; request 



mov 
out 

pop 
pop 
pop 
pop 
pop 
pop 
pop 
pop 
iret 



....acknowledge interrupt to 
8259A 

al,2GH ;send EOI to 8259A 
20H f al ; 



es 
ds 

di 

si 
dx 
cx 
bx 
ax 



35 



restore registers and 



return to place where 
interrupt occurred 
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debugmsg2 db 'this is the end of the heart 

beat interrupt 1 

hbeat int endp 



10 



subroutine instint [ install_interrupts ] 
(fillptr,fil2ptr, fi!3ptr) 



instint 



15 



20 



proc far 
public instint 

;public symbol allows external references 
;es,ds vectors and must be restored movsw 
;uses (ds:si) (es:di) addr 

assume cs : cseg_sync, ss :basic_ 
dg r oup , ds : bas i c_dg r oup 

assume es : basic_dgroup 

used to access interrupt 



25 



30 



save registers 



push bp ;save BASIC base pointer 

; for return to BASIC 

mov bp/sp ;point stack pointer at 

; frame reference to 
;address of BASIC analog 
;data buffer 



35 



push 

push 
push 



ax 

si 
di 



save additional 
registers 
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push ds ; 
push es ; 
pushf ;and flags 

;set up the segment 

; registers 
mov ax,dseg_sync ;set up access 

;to f loopy disk data ptrs 
mov es r ax ; 
assume es:dseg_sync ; 

; .....put disk file pointers into 

; local memory 

mov di, [bp] .B_f illptr ;get 

pointers from BASIC 
mov ax,[di] ;and 

; save in dseg_sync areas 

mov f dipt r off ,ax ; . 

mov di r [bp] .B_fil2ptr 

mov ax r [di] ? 

mov fd2ptroff,ax ; 

mov di f [bp] .B_f il3ptr 

mov ax f [di] ; 

mov fd3ptroff r ax ; 

mov ax f ds ?put segment 

; registers into 
mov fdlptrseg,ax ;pointers 

mov fd2ptrseg r ax ; 

mov fd3ptrseg,ax ; 



;set up the segment 
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; registers 
raov ax, int_buf f er 

;es points to buffer area to save 
mov es,ax ;DOS dummy 

; interrupt vector 
assume es : int_buf f er ; 
mov ax,0 ;ds points to 

;absO (interrupt table) 
mov ds , ax ; 
assume ds:absO ; 



lea 

lea 

eld 

movsw 

movsw 
movsw 
movsw 



di,save_int 
si,IRQ3 int 



; setup access to 
; interrupt vectors 

;load offset of 
;save_int in es/di 

;load offset of 
;IRQ3_int in ds,si 
;clear direction 
;flag to increment ptrs 
;save DOS dummy 
; interrupt vectors to be 
restored later 
now saving IRQ4 



mov lRQ3_int+2,cseg_sync ; install 

I the heart beat (IRQ3) 
mov IRQ3_int , of f set hbeat_int 

; interrupt handler now 
mov IRQ4_int+2/Cseg_sync ; install 

;the DAC timebase (IRQ4 
mov lRQ4_int,of f set tbase_int 

? interrupt handler now 
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•initialization of buffer 
control variables 



10 



15 



mov ax,dseg_sync ; setup data 

; segment for initialization 
mov ds , ax ; 
assume ds:dseg_sync ;ds segment 

; register now redefined 



xor 

mov 
mov 
mov 

mov 
mov 
mov 



ax, ax ;zero ax 

^register to initialize 
heartbeats , ax ; counters 
sync_ctr,ax ; 
ad_wr,ax initialize 
; read/write pointers to top 



hb_wr,ax 
ad_rd,ax 
hb rd,ax 



of buffer 



20 



return to BASIC 



25 



30 



popf 
pop 

pop 
pop 
pop 
pop 



es 

ds 
di 
si 
ax 



; restore flags 
; restore additional 
registers 



pop 
ret 



35 



bp 
6 



; res tore BASIC'S base 
;pointer and 
;delete 3 parameters (6 
; bytes) from the stack 
;and return to the 
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; calling routine 

debugmsg3 db 'this is the end of the 

interrupt installation* 

5 

instint endp 



10 



15 



; subroutine exstint (exstall_ 
; interrupts) 



exstint 



20 



25 



proc far 

public exstint ; public symbol allows 

? external references 
assume cs : cseg_sync , ss : basic_dgroup 
assume ds : int_buf £ er f es : absO 
;es,ds used to access interrupt 
; vectors and must be restored 
;movsw uses (ds:si) (es:di) addr 



•save registers 



30 



push 



mov 



bp 

bp,sp 



save BASIC base pointer 
for return to BASIC 
point stack pointer at 

frame reference to 
access arguments passed 
by BASIC (none here) 



35 



push ax 



? save additional 
; registers 
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push 
push 
push 
push 
pushf 



10 



mov 

mov 
mov 

mov 



si 
di 
ds 
es 



and flags 



15 



;set up the segment 

; registers as assumed 
ax,0 ;es points to 

;abs0 (interrupt table) 
es , ax ; 
ax, int_buf f er ;ds points to 

;buffer area to save 
ds f ax ;DOS dummy 

; interrupt vector 



20 



25 



lea 

lea 

eld 

movsw 

movsw 
movsw 
movsw 



di, IRQ3_int 
si, save int 



; setup access to 

; interrupt vectors 

;load offset of 
;IRQ3_int in es,di 

;load offset of 
;save_ int in ds,si 
; clear direction 
;flag to increment ptrs 
; restore DOS 
; dummy interrupt vectors 
;for IRQ3 
;and IRQ4 



30 



return to BASIC 



35 



popf 

pop es 



; restore flags 

; restore additional 

; registers 
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pop 
pop 
pop 
pop 

5 

pop 
ret 

10 

debugmsg4 db 

15 

exstint endp 



253 - 

ds 
di 

si ; 
ax ; 

bp ; restore BASIC'S base 

;pointer and 

0 ;delete 0 parameters (0 

;bytes) from the stack 
;and return to the 
;calling routine 

•this is the end of the 
interrupt exstallation 1 



20 



25 



subroutine rdbeat (heartbeats, sync_ 
pulses) 



30 



rdbeat 



proc far 

public rdbeat ;public symbol allows 
external references 
assume cs:cseg_sync,es:dseg_sync 
assume ds:basic_dgroup, ss :basic_dgroup 



35 



.save registers 
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push bp ;save BASIC base poin 

;ter for return to BASIC 

mov bp/sp ; point stack pointer at 

; frame reference to 
;access arguments passed 
;by BASIC (one here) 



10 



push 

push 
push 



ax 

di 
es 



;save additional 
registers 



mov ax,dseg_sync ;set up segment 

register for data area 



15 



mov 



es,ax 



20 



mov ax /heartbeats ;get 

; beats from local memory 
mov di , [ bp ] . BASIC_beats ; 

mov [di],ax ;send 

; beats to BASIC 



25 



mov ax,sync_ctr ;get 

;sync pulses from local 
mov di , [ bp ] • BASIC_syncs ;memory 

mov [di] f ax ;send 

;sync pulses to BASIC 



30 



■return to BASIC 



35 



pop 

pop 
pop 



es 

di 
ax 



; restore additional 
registers 



WO 86/07248 



- 255 - 



PCT/US86/01193 



; restore BASIC 1 s base 
;pointer , 

; delete 2 parameters (4 
; bytes) from the stack 
;and return to the 
; calling routine 

debugmsg5 db 'this is the end of the heart 

beat read routine* 

rdbeat endp 



pop bp 
ret 4 



5 



subroutine rdbuf (BASIC_ 
ptr ,whichbuff ) 



0 



5 



0 



this routine dumps a buffer 
from the 

assembly routine data area to a 
BASIC array 

pointed to by BASIC_ptr; 
whichbuff selects 
the assembler buffer to be 
dumped . 

choices of buffer are: 

0 - ad_buffer (bytes) 

1 - hb_bufferl (words) 

2 - hb buffer 2 (words) 



rdbuf 



5 



proc far 

public rdbuf ; public symbol allows 

; external references 
assume cs : cseg_sync , es : basic_dgroup 
assume ds : basic_dgroup, ss :basic_dgroup 
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.save registers 

push bp ;save BASIC base pointer 

;for return to BASIC 

mov bp/sp ; point stack pointer at 

; frame reference to 
; access arguments passed 
;by BASIC (one here) 

push ax ;save additional 

; registers 

push cx ; 

push si ; 

push di ; 

push ds ; 

push es ; 

pushf ;and flags 

.get pointers from BASIC 
mov di, [bp] Vwhichbuff ;get 

; buffer choice from BASIC 
mov ax,[di] ; 

mov di , [ bp ] • BASIC_pt r 

;get pointer to BASIC 1 s data area 
mov di,[di] ;and put pointer 

;into di 

; set up extra segment register 

; and counter 

mov cx,dseg_sync ;set up segment 

register for data area 
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mov ds , cx ; 
assume ds:dseg_sync 

mov cx,1024 ;load counter 

;with number of objects 



10 



15 



20 



or 



, select buffer here and place 

pointer in si 
ax, ax /compare 

; selector with 0 

jz rd_adbuf 

;if zero (select =0) read ad_buffer 
dec ax ; decrement to 

;see if select was 1 

jz rd_hbbufl 

;if zero (select =1) read hb_bufferl 
dec ax ; decrement to 

;see if select was 2 

jz rd_hbbuf2 

;if -zero (select =2) read hb_buffer2 
jmp rdbuf_end 

?not a valid buffer, so return to BASIC 



25 



rd adbuf: 



lea 



Ijmp 



si,ad_buffer ;point source 

; index to ad_buffer 
move_dta_byte 



30 



rd hbbufl: 



lea 



3 mp 



si,hb_buf ferl ;point source 

; index to hb_bufferl 
move dta word ; 



35 



rd hbbuf2: 



lea si,hb_buffer2 ;point source 

; index to hb_buffer2 
jmp move_dta_word ; 
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move_dta_by te s 



xor 



. . . •move byte data from local 

storage to BASIC array 
ah, ah ;zero upper byte of ax 



10 



eld ; clear direction flag to 

; increment si,di by 2 

lodsb ;move data bytes from 

; local storage (ds:si) 

stosw ;and store as a word in 

; BASIC'S area (es:di) 

loop *>yt_lp ; 

jmp rdbuf_end ; finished 



15 



move dta word: eld 



wd_lp : 



20 



...move word data from local 
storage to BASIC array 

; clear direction flag to 
; increment si,di by 2 
;get data word from 
; local storage (ds:si) 
loop wd_lp ;and store as a word in 

; BASIC'S area (es:di) 



movsw 



25 



return to BASIC 



rdbuf end: 



30 



35 



popf 
pop 

pop 
pop 
pop 
pop 
pop 

pop 



es 

ds 
di 
si 
ex 
ax 

bp 



; restore flags 
; restore additional 
registers 



; restore BASIC'S base 
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ret 



4 



;pointer , 

? delete 2 parameters (4 
;bytes) from the stack 
;and return to the 
;calling routine 



debugmsg6 



db 



'this is the end of the buffer 



read routine 



rdbuf 



endp 



; subroutine rdptrs (BASIC_adwr , BASIC 
; hbwr , adf lag , hbf lag ) 



;this routine returns pointers 
appropriate 

;arrays returned to BASIC through rdbuf 
;this means the pointers are subtracted 
;from 1025 

; since the buffers have decrementing 
;pointers 

; whereas the BASIC data has incrementing 
;pointers 

;the flags indicate whether or not the 
; respective 

;disk Tile buffers have been filled and 
; therefore require 

; service (eg, a BASIC PUT command to 
; store the buffer on disk) 



public rdptrs ;public symbol allows 

; external references 
assume cs : cseg_sync f es : dseg_sync 



rdptrs 



proc 



far 
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assume ds : basic^dgroup, ss : basic_dgroup 



save registers 



push bp ;save BASIC base pointer 

?for return to BASIC 

mov bprsp ; point stack pointer at 

; frame reference to 
; access arguments passed 
;by BASIC (one here) 

push ax ;save additional 

; registers 
push di ; 
push es ; 



mov ax,dseg_sync ;set up segment 

; register for data area 
mov es,ax ; 



mov ax,ad_wr ;get write 

; pointer for A/D buffer 



mov di, [bp] .BASIC_adwr 
mov [di],ax 



and send 
to BASIC 



mov ax,hb_wr ;get 

; write pointer for heart 
mov di, [bp] .BASICJibwr ;beat 

;buffer and send to BASIC 
mov [ di J, ax ; 

mov ax,ad_rd ;get 
;disk file flag for A/D 
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mov 



mov 



di, [bp] .adf lag ; buffer 

;and send to BASIC 

[di],ax 



10 



mov 



mov 



mov 



ax,hb_rd ;get 
;disk file flag for heart 

di , [ bp ] . hbf lag ; beat 

; buffers and send to BASIC 

[ di ] / ax ; 



.return to BASIC 



15 



pop 

pop 
pop 



es 

di 
ax 



restore additional 
registers 



20 



pop bp ; restore BASIC'S .base 

;pointer, 

ret 8 ;delete 4 parameters (8 

;bytes) from the stack 
;and return to the 
;calling routine 



25 debugmsg7 



db 



'this is the end of the pointer 
read routine' 



rdptrs endp 



30 



cseg_sync ends 

end 

module gwindowl.asm 



35 



a collection of routines useful 

for preparing data 

for the fast graphics routine. 



wo 
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subroutines: 



dwindow(xmin,xmax,ymin,ymax) - establish 
data value limits corresponding to 
screen window, 

swindow(xmin,xmax/ymin,ymax) - establish 
screen boundaries for data to be 
plotted. 

clrwindw - clear contents of present 
window 

axes - prepare axes for current window 

(no tick marks yet) 
(first version: only draws a box 
around window) 



scaler ( indata_pt r , outdata_ptr , numval ) - 
scale data to fit into window requires 

correct initialization 
using dwindow 
and s window 
(first version: only scales y- 

coordinate with dwindow) 
( x coordinate 

scaled by numval) 
( maximum y-value 

is plotted) 



35 



arguments passed by BASIC 
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indatajptr - offset of BASIC array 

containing y-coordinates of 
points to be plotted 
outdata_ptr - offset of BASIC array 

containing scaled y-coordinates 
numval - number of values to plot 



10 



.screen memory definition 



15 



screen_memory 
even_pixels 



20 



odd_pixels 
screen memory 



segment at 0B800H 

db 8000 dup(?) ; pixels with 

;even y-coordinates 
org 2000H ;beginning of 

;high screen memory 
db 8000 dup(?) ;pixels with odd 

;y-coordinates 

ends 



25 



30 



35 



dseg_wind 

xmin_s 
xmax_s 
ymin_s 
ymax_s 



segment 

dw 0 

dw 639 

dw 0 

dw 199 



.local memory definitions 

;valid default values 
;present at startup 

;minimum screen ordinate 
;for window 

;maximum screen ordinate 
;for window 

;minimum screen abscissa 
?for window 

;maximum screen abscissa 
;for window 



WO 86/07248 



PCT/US86/01193 



- 264 - 



10 



xmin_d 
xmax_d 
ymin_d 
ymax_d 

ulh_cor 
urh_cor 
llh_cor 
lrh_cor 

20 outptr 



15 



25 



30 



rndof f 
numvalt 
bx last 



dw 
dw 
dw 
dw 

dw 
dw 
dw 
dw 

dw 



dw 
dw 
dw 



0 ;minimum data ordinate 

;for window 
16384 ; maximum data ordinate 

;for window 
0 ;minimum data abscissa 

;for window 
16384 ;maximum data abscissa 

;for window 

0 ;offset for upper left 

;hand corner of screen 
79 ; offset for upper right 

;hand corner of screen 
3EF0H ; offset for lower left 

;hand corner of screen 
3P3FH ;offset for lower right 

;hand corner of screen 

? ;pointer to output array 

;in BASIC (must be 
;at least as large as 
; input array) 

? ? roundoff correction (if 

;fraction>.5 round up) 

? ? save number of points 

;in input array for xpass 

? ;save pointer during x- 

; scaling to allow 
;use of largest y per x 
;pixel 



dseg_wind 



ends 



35 
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10 



15 



20 



f rame_lim 

savebpl 

saveretl 

ymax 

ymin 

xmax 

xmin 

frame lim 



; subroutines 

dwindow/swindow( xniin/ xmax , ymin, ymax } 



struc 

dw 

dd 

dw 

dw 



dw 



dw 



ends 



? 

9 



;define structure 

; callers base pointer 

; return offset and 

; segment pushed by BASIC 

; maximum abscissa 

; (screen or data coordinate) 
;minimum abscissa 

; (screen or data coordinate) 
;maximum ordinate 
; (screen or data coordinate) 

;minimum ordinate 
; (screen or data coordinate) 



25 



30 



f rame_scl 

savebp2 

saveret2 

numval 

outdata_ptr 



35 indata_ptr 



; subroutine scaler ( indata_ptr ,outdata_ 
; ptr, numval) 

struc ;define structure 

dw ? ; caller's base pointer 

dd ? ; return offset and 

; segment pushed by BASIC 
dw ? ? number of values in 

;BASIC's data array 
dw ? yscaled values are 

;passed to a BASIC 

;array pointed to by 
;this pointer(for fgraph) 
dw ? ; values to be graphed 

;are passed from a BASIC 
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; array pointed to by 
;this pointer, 

frame scl ends 



- ...subroutines' code begins here 

10 cseg_gr segment 'code 1 

dgroup group data , stack , const , heap , memory 
; defining link to BASIC 



15 



20 



subroutine dwindow ( xmin , xmax , ymin r ymax ) 



; subroutine to establish data value 
; limits 

corresponding to screen window. 



25 



dwindow 



proc far 
public dwindow 

; public symbols allow external references 

as sume cs : cseg_ g r , ds : dg r oup 
; BASIC defines regs 

assume ss : dgroup, es : dseg_wind 



30 



push 



mov 



bp ;save base pointer for the 

? return to BASIC 
bpfSp ; point stack pointer at frame 

; structure 



35 
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push 
push 
push 



ax 
di 
es 



.save additional registers and 
set up extra data seg 



10 



mov 



mov 



ax,dseg_wind 



es, ax 



set up extra data 
segment as assumed 



;....get specifications for window from 
; BASIC and store locally 



15 



mov di,[bp].ymax 
mov ax,[di] 
mov ymax_d , ax 



20 



mov di , [ bp ] • ymin 
mov ax,[di] 
mov ymin_d,ax 



25 



mov di,[bp].xmax 
mov ax,[di] 
mov xmax d,ax 



30 



mov di,[bp].xmin 
mov ax, [di ] 
mov xmin d,ax 



35 



pop 
pop 
pop 



es 
di 
ax 



.restore all registers which 
were corrupted 
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pop bp 



ret 



dwindow endp 



; restore BASIC base 
;pointer before returning 

; delete 4 parameter 
; addresses (8 bytes) from 

; stack and return to 

; calling routine 



10 



15 



; subroutine swindow( xmin, xmax,ymin f ymax) 



; subroutine to establish absolute screen 

;coordinate limits 

; corresponding to screen window. 



swindow 



20 



25 



proc far- 
public swindow ; public symbols allow 
external references 
assume cs:cseg_gr ,ss :dgroup 
; BASIC defines regs 
assume ds : dseg_wind, es : dgroup 



push bp 



mov 



30 



bp,sp 



;save base pointer for the 
; return to BASIC 
;point stack pointer at frame 
; structure 



• save additional registers and 

; set up extra data seg 

35 push ax ; 

push cx ; 
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push dx 
push di 
push ds 



mo v ax , ds eg_wi nd 



mov ds/ax 



set up extra data 
segment as assumed 



10 



15 



mov 
mov 
cmp 

jg 

mov 



•...get specifications for window from 
BASIC and store locally 

..first y coordinate ranges 

di, es: [bp] .ymax ; 
ax,es:[di] ; 



ax, 199 
y_bad 

ymax_s,ax 



make sure ymax_s <=199 
use default value if 
value sent is bad 



20 



mov di,es: [bp] .ymin ; 

mov ax,es:[di] 

mov ymi n_s , ax ; 



25 



y_bad : 



30 



add 

cmp 
jng 
mov 

mov 
xor 
mov 



ax, 8 

ax , ymax_s 
y_ok 
ax, 199 

ymax_s , ax 
ax, ax 
ymin_s,ax 



.y range limits examined 

;make sure that ymax 

; exceeds ymin by at least 8 
f 

;if ymax_s <= ymin_s+8 
;then set ymax_s,ymin_s 
;to default values 
;ymax_s default=199 
;ymin_s default=0 



35 



•x coordinate ranges set up 
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y_ok; 



mov 
mov 
cnip 

jg 

mov 



di,es: [bp] .xmax ; 
ax,es: [di] 
ax, 639 
x bad 



xmax s,ax 



make sure xmax_s <=639 
use default value if 
value sent is bad 



10 



15 



x bad: 



20 



mov 
mov 
mov 



cmp 

jnge 
mov 

mov 
xor 
mov 



di,es: [bp] .xmin ; 

ax,es: [di] 

xmin s,ax ; 



ax,xmax_s 

x_ok 
ax, 639 

xmax_s , ax 
ax, ax 
xmin s,ax 



,x range limits examined 

;make sure that xmax 
; exceeds xmin 
;if xmax_s < xmin_s 
;then set xmax_s ,xmin_s 
;to default values 
;xmax_s default=19 9 
;xmin s default =0 



25 



,set up the pointers to the 
four screen corners 



30 



x ok: xor 



mov 



35 



shr 

jnc 
mov 



; — ymin 

dx,dx ;put lowest screen 

;memory location (=0) into dx 
ax,ymin_s ; first calculate y 

contribution to offset of 
ax,l ; upper corners by 

multiplying (ymin/2) by 80, 
y0_even ;if ymin was not even 

dx,2000H ;then the upper corners 

;are odd pixels (2000H) 
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yQ_even:mov 

mul 
add 

mov 
mov 



cl,80 
cl 

dx,ax 

ulh_cor , dx 
urh cor,dx 



[promised 

multiplication by 80] 

y contribution to 
offset is here 
save partial result 



15 



10 xor 

mov 

shr 

jnc 
mov 

yl_even:mov 

mul 
add 

mov 

25 mov 



20 



; — ymax 
dx f dx 

ax , ymax_s 

ax, 1 

yl_even 
dx,20Q0H • 

cl,80 

cl 

dx,ax 



llh_cor , dx 
lrh cor,dx 



;put lowest screen 
j memory location (=0) into dx 
; first calculate y 
.•contribution to offset of 

; lower corners by 
? multiplying (ymax/2) by 80. 
if ymax was not even 
:then the upper corners 
;are odd pixels (2000H) 
[promised 
^multiplication by 80] 

y contribution to 
offset is here 
save partial result 



30 



35 



mov ax,xnu.n_s 

mov cl , 3 

shr ax,cl 

add ulh_cor,ax 

add llh_cor-,ax 

mov ax , xmax_s 



;x contribution is 
;xmin/8 

;calculated by shifting 

;right 3 bits 

;and 

; adding the result to 
;the stored partial result 



;x contribution is 
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xmin/8 

mov cl,3 ; calculated by shifting 

; right 3 bits 
shr ax,cl ;and 
5 add urh_cor,ax ;adding the result to 

;the stored partial result 
add lrh_cor,ax ; 

10 ; ...restore all registers which 

; were corrupted 

pop ds ; 

pop di ; 

pop dx ; 
15 pop cx ; 

pop ax ; 

pop bp ; restore BASIC base 

20 ;pointer before returning 

ret 8 ; delete 4 parameter 

; addresses (8 bytes) from 
; stack and return to 
; calling routine 

25 swindow endp 



30 



subroutine clrwindw ; 

i ■ I, n I, - ^ i ii • 

; subroutine to clear 
;the screen window. 



clrwindw 

35 



proc far 

public clrwindw ? public symbols allow 

; external references 
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assume cs : cseg_gr , ss : dgroup 
;BASIC defines regs 

assume ds :dseg_wind,es :screenjnemory 



bp ;save base pointer for the 

; return to BASIC 
bp,sp ;point stack pointer at frame 

;structure 



10 



15 



20 



push 
push 
push 
push 
push 
push 
push 
push 



ax 
bx 
cx 
dx 
si 
di 
ds 
es 



save additional registers and 
set up data segments 



25 



30 



; ...•.set up data segments as 

; assumed 
mov ax,dseg_wind 
mov ds,ax 
mov ax , scr een_memory 
mov es,ax 



35 



.clear screen by zeroing out 
graphics memory 

register usage: 

ax - marker for 
rightmost column 
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10 



15 



20 



mov dx , ymax_s 



bh - # x bytes 
bl - pixel mask 
cx - y 

coordinate counter 
dx - # y lines 
si - offset of 

top of column 
di - offset of 
present byte 
..first clear leftmost part of window 
compute number of 
vertical lines 



sub dx,ymin_s 

inc dx 

mov ax,urh_cor 

sub ax,ulh_cor 

mov bh,al 

xor ax, ax 



and save in dx 



; compute number of 
; horizontal bytes 
; (a number 1-79) 
;and save in bh 
; clear ax register to 
; indicate clearing of all 
; columns except the 
; rightmost one 



25 



30 



.set up to blank leftmost 
; column 
mov cx,xmin_s ; compute mask for 

; blanking leftmost column 
call maskO ; 



35 



lea di r even_pixels ;get offset of 
add di,ulh_cor ; upper left hand corner 

of window 

mov si r di ;save location in s.i 
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nxt_col:call 
5 xor 

inc 



10 



15 



20 



25 



mov 
dec 

jnz 



mov 

inc 
and 
mov 

jz 
shr 

jmp 

masker: xor 
1st clrtcall 



clr_col 
bl,bl 

si 

di, si 
bh 

nxt col 



.blank all columns except 
rightmost 



; subsequent columns 
; blank all bits (bl mask=0) 
; compute offset of 
; present column 
;and load into di 
;see if there are any 
; columns left 



cx,xmax_s 
cx 

cl,7 
bl, OFFH 
masker 
bird 

lst_clr 
bl,bl 

clr col 



.blank rightmost column 
; compute mask for 
; rightmost column 
; include rightmost pixel 
; using cx mod 8 
;put mask in bl 
;if cx mod 8 <>0 then 
; shift mask 
appropriately 

;set bl mask to blank 
;all bits 

; clear rightmost column 



30 



35 



pop 
pop 
pop 
pop 
pop 
pop 



es 
ds 
di 
si 
dx 
cx 



.restore all registers which 
were corrupted 
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pop 
pop 



bx 
ax 



pop 



ret 



bp 



10 



clrwindw endp 



; restore BASIC base 
;pointer before returning 
? delete 0 parameter 
;addresses (0 bytes) from 
; stack and return to 
; calling routine 



15 



20 



axes 



25 



subroutine axes 



subroutine to draw a box 

; enclosing the screen window. 

proc far 

public axes ; public symbols allow 

; external references 
assume cs : cseg_gr , ss : dgroup 
; BASIC defines regs 

assume ds : dseg_wind, es : screen_memory 



push bp ;save base pointer for the 

30 ; return to BASIC 

mov bp f sp ; point stack pointer at frame 

;structure 



35 ; save additional registers and 

; set up data segments 
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push ax ; 

push bx ; 

push cx ; 

push dx ; 

push si ; 

push di ; 

push ds ; 

push es ; 



; set up data segments as 

; assumed 
mov ax,dseg_wind ; 
mov ds,ax ; 
mov ax,screen_iiieniory; 
mov es f ax ; 

; draw box screen by setting 

; appropriate bits 

; register usage: 

; ax - marker for 

; rightmost column 

; bh - # x bytes 

; bl - pixel mask 

; cx - y 

; coordinate counter 

; dx - # y lines 

; si - offset of 

; top of column 

; di - offset of 

; present byte 

first calculate number of 
vertical, horizontal counts 
mov dx,ymax_s ; compute number of . 

;vertical lines 
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t 

sub dx/ymin_s ; 

inc <3x ;and save in dx 

mov ax,urh_cor ; compute number of 

5 ^horizontal bytes 

sub ax,ulh_cor ;{a number 1-79) 

mov bh/al ;and save in bh 

10 left edge of box 

lea di,even_pixels ;get offset of 
add di,ulh_cor ; upper left hand corner 

;of window 

15 mov cx,xmin_s ; compute mask to draw 

;left end of top line 
call maskO ; [maskO gives pixels to 

;left of x coordinate] 
xor bl , OFFH ; [ requiring 

20 complementation here] 

or es:[di],bl ; 

mov cx,xmin_ s ; compute mask for 

; setting leftmost box edge 
25 call maskl ; 

call drw_ln ;draw the left most 

; border of the box 

lea di f even_pixels ;get offset of 
30 add di,llh_cor ; lower left hand corner 

; of window 

mov cx,xmin_s ; compute mask to draw 

;left end of bottom line 
call maskO ;[mask0 gives pixels to 

35 ;left of x coordinate] 

xor blrOFFH ;[ requiring 
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or 



complementation here] 



es: [di] ,bl 



mov 



call 



bl,bh 
hbar 



.bottom edge of box 

;save number of 
;horizontal bytes in bl 
;draw horizontal bar 



10 



15 



; top edge of box 

mov bh,bl ;get number of 

;horizontal bytes from bl 
lea di,even_pixels ;get offset of 
add di,ulh_cor ; upper left hand corner 

;of window 

call hbar ;draw horizontal bar 



20 



; right edge of box 

lea di , even_pixels ;get offset of 

add di f urh_cor ; upper left hand corner 

;of window 



25 



mov cx, xmax_s 

call maskG 

or es:[di],bl 



compute mask to draw 
right end of top line 



30 



mov 

call 
call 



cx, xmax_s 

maskl 
drw In 



; compute mask for 
; setting rightmost box edge 

7 

;set rightmost box edge 



35 



lea di # evenjpixels ;get offset of 
add di,lrh_cor ; lower right hand corner 

;of window 
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mov cx,xmax_s 

call maskO 

or es:[di],bl 



; compute mask to draw 
; right end of bottom line 



10 



15 



pop 
pop 
pop 
pop 
pop 
pop 
pop 
pop 



es 
ds 
di 
si 
dx 
cx 
bx 
ax 



.restore all registers which 
were corrupted 



20 



pop 



ret 



25 axes endp 



bp 
0 



; restore BASIC base 
/pointer before returning 
; delete 0 parameter 
/addresses (0 bytes) from 
; stack and return to 
/calling routine 



30 



subroutine scaler ( indata_ptr ,outdata_ 
ptr ,numval) 



35 



/subroutine to scale data values within 
/limits 

/corresponding to data window. As a. 
/convenience, 
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;the data is inverted so ymax_d is at 
;top of 

;the window (screen values increase 
; towards 

5 ; bottom of the screen) 

; scaling occurs in two passes: first y 
;is scaled, then x 
scaler proc far 

10 public scaler ;public symbols allow 

external references 
assume cs : cseg_gr , es : dgroup 
; BASIC defines regs 
assume ss : dgroup r ds :dseg_wind 

15 

push bp ;save base pointer for the 

; return to BASIC 
mov bp/sp • ;point stack pointer at frame 

20 ;structure 



25 



30 



push 
push 
push 
push 
push 
push 
push 



ax 
bx 
cx 
dx 
si 
di 
ds 



.save additional registers and 
set up extra data seg 



35 



mov ax,dseg_wind 



mov ds/ax 



set up extra data 
segment as assumed 
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,get data from BASIC point by point 
and scale according to 
data window, (use di,bx as 
holding registers) 



10 



15 



mov 

mov 
mov 

mov 

mov 
mov 



si , es: [bp] .outdata_ptr 
;get pointer for scaled data output 
si,es:[si] ;pointer is now in si 

outptr,si ;save output pointer 

si,es: [bp] . numval 

;get number of points to scale into cx 
cx,es:[si] ; 

;save value for second 
;pass 



ntimvalt ,cx 



20 



mov 



mov 



mov 



si/es: [bp] . indata_ptr 

;get pointer to BASIC 1 s array of data 
si,es:[si] ;pointer for 

; input is now in si 
di/outptr ;pointer for 

; output is now in di 



25 



30 



mov 

sub 

mov 

shr 
mov 



bx , ymax_s 
bx,ymin_s 
ax,bx 
ax, 1 

rndof f ,ax 



put screen scale into 
bx 



;use half screen scale 
;as a roundoff correction 



35 



mov 
sub 



bp r ymax_d 
bp, ymin_d 



;put data scale into bp 
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getval: mov 



ax/es: [si] 



;get data value from 
; BASIC 



10 



15 



20 



cmp 
jle 
sub 
jge 

neg' 



mul 

add 
jnc 

inc 

div_d: div 
add 
jmp 



ax,ymin_d 
minval 
ax / ymax_d 
rnaxval 
ax 



bx 

ax,rndof f 
div_d 

dx 

bp 

ax,ymin_s 
nextval 



;if less than ymin_d 
;then use minimum value 
;if greater than ymax_d 
;then use maximum value 
;ax now has distance' 
;from full scale 

;multiply by screen 
; scale (corrupts dx) 
;add roundoff correction 
;if no carry (ax,dx) 
;pair is correct 
;otherwise increment dx 
; (carry from add) 
;and divide by data 
; scale 

;add screen offset value 
;to get final scaled 
; value 



rnaxval : mov 
25 jmp 



ax , ymax_s 
nextval 



; insert maximum value 



minval : mov 
jmp 



ax,ymm_s 
nextval 



; insert minimum value 



30 nextval: mov 



inc 



35 



inc 
inc 



es: [di] , ax 

si 

si 
di 



; store y-scaled result 
;in BASIC output array 
; point to next data 
; value (integer is 2 bytes) 



point to next output 
point for y-scaled data 
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mc 
loop 



di 

getval 



if cx shows points 
remain, scale them 



; .scale x-axis 



10 



15 



20 



25 



30 



mov 
mov 

mov 

sub 

mov 

mov 

xor 
xor 

get_ysc: mov 

mov 
inc 
mul 

div x: div 



di/outptr 
cx,numvalt 

bp,xmax_s 

bp, xmin_s 

bx,639 

bx_last , bx 

ax, ax 
bx , bx 



; point di to beginning 
;of output array 
; restore counter for 
; number of points 

put screen scale into 
bp 



; initialize bx_last to 
; rightmost pixel 



;zero ax,bx to .js tart 
;bx points to x-unscaled 
; source 



si,es: [di] [bx] ;get current value y 

; scaled value into si 



35 



and 



ax ,bx 

ax 

bp 

numvalt 
ax,0PPFEH 



; calculate twice x- 

; coordinate plus 1 

; (gives proper roundoff) 

; multiply by screen 
; scale (corrupts dx) 
; scale by number of 
; input points 
;trim off Isb for 
;aligned access to words 
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xchg 



10 



15 



cmp 
jne 
cmp 
jle 

y_save: mov 
mov 



bx,bx_last 
y_save 



ax f bx ;save source ptr in ax, 

; using bx to point to 
;offset of destination 
; (which is a word) 
;see if we are on the 
;same x-coordinate 
;i£ not put a valid 
;abcissa at this coordinate 
es: [di] [bx] ,si ; compare yscaled value 

;to last yscaled value 
y_more ; stored, if y was 

; greater or equal then keep it 
es: [di ] [bx] , si ;else store yscaled 
;value in output array 
;save current 
destination pointer 



bx last/bx 



20- 



y_more: xchg 

inc 

inc 
loop 



bx,ax 

bx 

bx 

get_ysc 



25 



; restore bx register 

point to next input 
point 

f continue scaling x 
;until counter cx is zero 



30 



35 



pop 
pop 
pop 
pop 
pop 
pop 



9 

ds 
di 
si 
dx 
cx 
bx 



•restore all registers which 
were corrupted 
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pop ax 
pop bp 
5 ret 6 

scaler endp 

10 



; restore BASIC base 
;pointer before returning 
; delete 3 parameter 
; addresses (6 bytes) from 
; stack and return to 
; calling routine 



15 



utility routines local to the window 
module 



20 clr_col proc 



/ • • • t 

m 

/ 

near 



•utility procedure for fast 
clearing of vertical cols 



mov 



25 



30 



35 



clr_lp: and 



loop 



xor 
test 

jnz 
add 



cx,dx 

es: [di] ,bl 

di,2000H 
di,20Q0H 

go_clr 
di,80 



go_clr: loop clr_lp 



ret 



;set up counter for 
; clearing first column 
; clear a graphics byte 
;using mask 

; switch even/odd pixel 
;if odd pixel go to 
; statement 

;go to next even/odd 
;pair 

; continue clearing this 
; column 



clr_col endp 
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drw_ln proc near 



♦utility procedure for fast 
drawing of vertical lines 



mov 



10 drw_lp: or 



15 



xor 
test 

jnz 
add 



cx , dx 

es: [di] ,bl 

di,2000H 
di,2Q00H 

go_drw 
di,80 



20 



go_drw: loop drw_lp 



ret 



;set up counter for 
;clearing first column 
;set a graphics bit 
; using mask 

; switch even/odd pixel 

;if odd pixel go to loop 

; statement 
• 

;go to next even/odd 
;pair 

;cbntinue clearing this 
; column 



drw_ln endp 



25 

; utility for fast drawing of 

; horizontal lines 

hbar proc near ; requires di to have byte before 

;first byte of line 
30 ;bh is used as a decrementing 

;byte counter for number 
;of bytes drawn 

dec bh ; check to make sure at 

35 ; least one byte to plot 

jz hbar_ok ;if bh=0 then done 
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hbar_lp:inc 
mov 
dec 

jnz 



di ;go to next byte 

byte ptr es:[di],0FFH ;set byte 
bh ; decrement number of 

; bytes remaining 
hbar_lp -continue if more bytes 

;need to be drawn 



hbar ok: ret 



10 hbar endp 



15 



maskO proc 



near 



...utility procedure for 
computing bit mask for clears 
;uses value in cx to compute bit 
;mask in bl 



20 



25 



and 
mov 

jz 
shr 

mask0_ok:xor 
ret 

maskO endp 



cl,7 
bl;0FFH 
mask0_ok 
bl,cl 

bl t OFFH 



; using cx mod 8 

;put mask -in bl 

;if cx mod 8 <>0 then 

yshift mask 

appropriately 

; complement mask to set 

;bits to be retained 



30 



maskl proc 



35 



near 



...utility procedure for 

computing bit mask for drawing 
•uses value in cx to compute bit 
;mask in bl 
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and 
mov 

jz 
shr 

maskl_ok:ret 
maskl endp 



cl/7 
bl,80H 
maskl_ok 
bird 



; using cx mod 8 

;put mask in bl 

;if cx mod 8 <>0 then 

; shift mask 

; appropriately 



10 



cseg_gr ends 
end 



15 



20 



subroutine f graph (data_ptr ,numval,x_coord,line_type) 
called from BASIC this routine graphs an array 
on the screen 

this routine is designed to allow rapid access 
to the screen to allow 
real time graph generation. 



25 



30 



35 



arguments passed by BASIC 



data_ptr - offset of BASIC array 

containing y-coordinates of 
points to be plotted 
numval - number of values to plot 

x coord - absolute (screen) x coordinate 

of first point 

succeeding values are plotted 
at succeeding pixels 
line_type - if 0 then just plot points 
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if not zero this byte value 

gives the line mask for 

plotting various lines 

(eg. 55H interpolates a line 

between adjacent 

points with every other point 

on the interpolation 

line; in other words , a fine 

dotted line) 



10 



15 



20 



screen_memory 
even_pixels 



odd_pixels 
sere en_memo r y 



►screen memory definition 



segment at 0B80OH 

db 8000 dup(?) ?pixels with 

;even y-coordinates 
2000H ;beginning of 

?high screen memory 
8000 dup(?) ?pixels with odd 

•y-coordinates 



org 



db 



ends 



25 



30 



35 



frame struc 

savebp dw 

save_es dw 

saver et dd 

line_type dw 

x coord dw 



;define structure 

; caller's base pointer 

;save es on stack for 

; return to BASIC 

; return offset and 

? segment pushed by BASIC 

;mask for plotting 

;various line types 

;x_coordinate of first 

;point to be plotted 
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numval dw ? 

data_ptr dw ? 

5 

frame ends 



; number of values in 
; gr aph_data ( * ) array 
; values to be graphed 
;are passed in an array 
;graph_data(*) pointed 
;to by this pointer. 



10 

cseg segment 1 code 1 

dgroup group data r stack , const , heap , memory 
;defining link to BASIC 
assume cs : cseg, ds : dgroup f ss : dgroup 
15 ;BASIC defines regs 

assume es :screen_memory ;use extra data 

; segment to access the 
; screen memory 

20 fgraph proc far 

public fgraph ;public symbols allow 

; external references 



25 



push es 
push bp 



mov 



30 



bp,sp 



;save BASIC'S es 
;register 

;save base pointer for 
;the return to BASIC 
;point stack pointer at 
; frame structure 



35 



push 
push 
push 



ax 
bx 
cx 



,save additional registers 
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push 
.push 
push 



dx 
si 
di 



10 



15 



;this routine assumes that the proper 
; graphics 

;mode has been established (eg., < SCREEN 
;2>) 

mov si, [bp] .numval ;get number of points 

.•remaining to be graphed, 
mov ax, [si] ; 
or ax, ax ;if number of 

/repetitions is zero we're done, 
jnz setup ; otherwise there is work 

- ; remaining, 

jmp finish ;done 



20 



temporary storage area 
(aligned on word boundary) 



25 numval_t 
x_now 
lastjc 

30 

lastly 
last_di 
35 line mask 



even 
dw 

dw 

dw 

dw 

dw 

db 



; number of points left 
;to plot 

;byte offset in screen 
; memory for x-coordinate 
;last x-coord (saved for 
? return to BASIC) 
;last y-coord (used only 
;for line plots) 
;last screen offset 

(used only for line plots) 
;line mask is the 

; rotating buffer which is 
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pixel_mask 



db 



;to generate various 
; dotted/dashed lines 
;pixel mask is used to 
;set one pixel in the 
; screen memory (using an 
;OR instruction) 



10 



15 



setup: mov 
mov 
mov 

mov 
mov 



last_di,0ffffH ; initialize last_di to 

;ffff 

numval_t/ax ;save number of points 

;to plot 

si, [bp] -line_type ;get line type mask 

;from BASIC 

ax, [si ] 

rand store lower byte in 
local storage 



line mask f al 



20 



25 



30 



mov 

mov 
mov 

dec 
add 
cmp 

jle 

sub 

1st x: mov 



si f [bp] .x_coord 

ax, [si] 
bx, numval_t 

bx 

bx,ax 
bx,64Q 

lst_x 

bx,640 
last x,bx 



get x coordinate of 
first point from BASIC 

get number of points in 
order 

to compute 

the last x-coordinate 
x-coordinate is modulo 
640 

if less than 640 store 
value 

else make less than 640 
store last_x value for 
return to BASIC 



35 



mov 



mov 



bx,seg even_pixels ;set up screen 

;memory as extra" segment 
es,bx ; (note: cannot move an 
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; immediate direct to es) 



10 



mov cl,al 

and cl r 7 

mov pixel_mask, 80H 

jz mask_pk 

shr pixel_mask,cl 



15 



mask ok: mov 



shr 



mov 



cl, 3 
ax , cl 
x now, ax 



get low byte of x_ 
coordinate 
modulo 8 

initialize pixel mask 
to first bit 
if x_coord mod 8 is 
zero, the mask is ok 
rotate mask bit to 
correct position 

;x_coord/8 is byte 

; offset for pixel 

;this result is termed x_ 

; now 



20 



25 



30 



35 



mov di, [bp] .data_ptr 

;use [si] with offset in bx to access y 



mov 



mov 



mov 



mov 



si, [di] 
bx, 0 

dx f [si] [bx] 
last_y,dx 



get_y: mov dx,[si][bx] 

mov ax f dx 

shr ax/1 

mov cl,80 



coordinates in BASIC 
;data(*) array 
;initialize to first 
; element of array 
;get first y-coordinate 
;from BASIC 

;and initialize lastly 

;get y-coordinate from 
j BASIC 

;ax is used to calculate 
; screen memory offset 
; divide by two to get 
;rid of Isb 

;80 bytes per line (Isb 
; gives interlace) 
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10 



mul cl ;ax is offset for y- 

; coord in screen memory 
add ax,x_now ;add offset for x- 

^coordinate to y offset in ax 
mov di,ax ;and put x,y offset into 

;di 

test dx,l ;if y_coordinate was 

;even 

jz ln_beg ?then we are ready to 

;plot a point or a line 

add di,2000H ;odd pixels require the 

; interlace offset 



ln_beg: cmp 

15 

jne 



mov 

20 lst_di: cmp 
jne 

set_px: mov 



last di,0ffffH 



25 



or 
jmp 



;if last_di is not ffff 
; (first point) 
;then go to set next 
;pixel 

;else initialize di 
;properly 

;if line mask is not 0 
;then draw the 
;approrpiate line 
;else set pixel using OR 
;with mask 
even_pixels[di ] , al 

more ;and go to next point 



lst_di 

last_di f di 

line_mask , 0 
draw_line 

al,pixel_mask 



draw_line:xchg di , last_di 
mov cx, lastly 

sub cx,dx 



drawing the required line 

;get old screen memory 
;location to start 
;cx will be the y 
;distance to current pixel 
;dx still has current y- 
;coord. 
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;if cx is zero then plot 
;only one point 
;if last_y>y-coord then 
;draw up on screen 
; since lowest y is at 
;top of screen 



; ..draw a line down on screen 

10 ; (increasing y) 

neg cx ;cx was negative 

jmp nxt_pix ;only plot one point per 

;y-coord if possible 
15 dn_lp: shl line_mask,l ;set up line mask for 

;next pixel 

jnc nxt_pix ;if no bits are shifted 

;out then no pixel here 
or line_mask,l ;is msb was shifted out, 

20 ;now set lsb 

mov al,pixel_mask ;load pixel mask and 
or even_pixels[di] , al ;set pixel using 

;OR with mask 

25 now find next pixel position 

for line 

nxt_pix:xor di,2000H ; change from high to low 

;memory (or vice versa) 
test di/2000H ;if in high screen 

30 ; memory 

jnz dn_di ;*hen di points to next 

;pixel 

add di,80 ;else go to next line in 

; lower memory 

3 5 dn di: loop dn_lp ;do another pixel in 

;this line 



jcxz ln — done 
jg nxt_pxu 
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imp 



In done 



;plot last pixel when 
;done 



10 



up_lp : shl 

jnc 

or 

mov 
or 



.draw a line up on screen 
(decreasing y) 



line_mask, 1 

nxt_pxu 

line_mask, 1 

al,pixel_mask 
even_ pixels [ di ] r al 



;set up line mask for 
;next pixel 

;if no bits are shifted 
;out then no pixel here 
?is msb was shifted out, 
?now set Isb 
;load pixel mask and 



15 



;set pixel using 
;OR with mask 



20 



25 



nxt_pxu:xor 

test 
jz 

sub 

up_di : loop 
; jmp 



di, 2000H 

di,200GH 
up_di 

di, 80 

up_lp 

In done 



30 



>now find next pixel position 

for line 

; change from high to low 
;memory (or vice versa) 
;if in low screen memory 
;then di points to next 
;pixel 

;else go to next line in 
; upper memory 
;do another pixel in 
;this line 

;plot last pixel when 
; done (statement not needed 
here) 



35 



.finish up with line by 
storing current data 
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ln_done : shl 
jnc 

5 or 

mov 
or 

10 end_ pixrmov 



;set up line mask for 
;next pixel 

;if no bits are shifted 
;out then no pixel here 
;is msb was shifted out, 
;now set Isb 
;load pixel mask and 



line_mask, 1 

end_pix 

line_mask,l 

al,pixel_mask 
evenj>ixels[di],al ;set pixel using 

;OR with mask 
lastly, dx ;save present y- 

; coordinate 
mov last_di,di ;save present 

;pixel byte pointer 



15 



more: dec 
20 jz 
inc 

inc 



25 



30 



35 



shr 
jnz 
mov 
inc 
inc 
cmp 



numval__t 

finish 

bx 

bx 

pixel_mask 

go_gety 

pixeljnask 

x_now 

last_di 

x now/80 



.prepare for next point if 
there is one 

;one less point left now 
; finished if none left 
;if not done increment 
;base index -by 2 to point 
to next y-coord in 
i BASIC -array 
,1 ;move pixel mask to next 
x-coord 

if mask points to some 
; pixel get the y-coord 
,80H ; otherwise set up mask 

;for next 8 x-coordinates 
;x_now points to next 
;byte (for next 8 pts) 
;fix last di to point to 
; present column 
; there are only 80 bytes 
;per line, so 
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jl go_gety ;if x_now<80 then x_now 

;is ok to get next y 

mov x_now,0 . ; otherwise wrap around 

;to x_now=0 

sub last_di,80 ;also reset di to first 

; column 



go_gety : jmp get_y 



10 



finish up and send present 
pointers, mask to BASIC 



15 



finish: mov 
xor 
mov 
mov 
mov 
mov 
mov 



20 



25 



pop 
pop 
pop 
pop 
pop 
pop 



al,line_mask ;get present line mask 

ah, ah ;zero upper byte 

si, [bp] .line_type ;and 

[si], ax ;send to BASIC 

ax,last_x ;get last x-coordinate 

si , [bp] .x_coord ;and send to BASIC 

[si], ax ; 



di 
si 
dx 
cx 
bx 
ax 



.restore all registers which 
were corrupted 



30 



35 



pop 
pop 
ret 



es 
bp 

a 



; restore the es register 
;and 

; restore BASIC base 
;pointer before returning 
;delete 4 parameter 
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fgraph endp 
5 cseg ends 
end 



10 



15 



20 



25 



PCT/US86/01193 



; addresses (8 bytes) from 
; stack and return to 
; calling routine 



30 
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APPENDIX C 



5 1 CALIB - program to calibrate instruments using 

• board#l 

1 last revision: 1985 



10 

defint a-y 

1 only z denotes a real number 
dim buffer(12800) 
hrbpm=0 
15 zfqlow=0. 

zfqres=0 • 
zlfa=0. 
zrfa=0 • 
els 

20 

'define ports on 8253 
timer0=&h704 
timerl=&h705 
25 timer2=*h706 
con8253=&h707 



1 set timer modes to 16 bit square wave rate 
30 1 generators 

out con8253,&h36 
out con8253,&h76 
out con8253,&hB6 



35 f for testing set timer 0 to 100Hz timebase 
out timerl,164 
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out timerl,3 
out timer 2,0 

'set timer 0 to 1280Hz timebase 
5 out timer 2, 5 

• (2.38MHZ/1864J (1864=2*256+104) 

'set timer 2 as a 1Hz 
1 clock at 
1 startup 

10 hrbpm=60 '(gives a heart rate 

• signal at 
•eobpm) 

out timer0,l 'set timer 0 as a flip 

* flop 

15 out timerO,Q 1 



1 turn the gates on using the 8255 at bits 0,1,2 % 
1 on portc 
20 porta=&H70C 
portb=&H70D 
portc=&H71E 
con8255=&H71F 

1 port A output port B input port C output 
25 ■ first set all 8255 ports to output, then set 

1 portc to 
' 0PPH 

out con8255,130 

out portc / &H0FF * 

30 



■ first print out the present value of the 
1 interrupt 
35 1 vectors 

locate 4,1 
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gosub 10000 

• install the interrupt with a dummy buffer and 
5 1 print 

• vectors 
reseter=256 

call wrbuf f er ( reseter ) 
reseter=128 
10 call wrbuf fer ( reseter ) 

call instint 
locate 5,1 
gosub 10000 

15 

1 now go through required startup subroutines 
gosub 90 

1 set up breathing signal 
gosub 70 

20 1 set up heart rate variations 

gosub 50 

1 put some information on screen 
gosub 80 ' turn D/A on 

locate 1,1 

25 print "commands: h(rvar),i(nt 

on) ,q(uit) ,r (beats) , b(reath) ,c(ounts) " 

' wait until user hits a key 
30 savekey$="" 
40 while 

len( savekey$ ) =0 : savekey$=savekey$+inkey$ : wend 
if savekey$=' , r ,, then gosub 50 
'print heart beats 
35 if savekey$="q" then goto 9996 'quit 

if savekey$= !, c" then gosub 60 'print timers 
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10 



if savekey$= , 'h" then gosub 70 

'set up heart rate variations unmask interrupts 

if savekey$=' , i M then gosub 80 

if savekey$="b" then gosub 90 

'set up breathing signal 

savekey$= ,,,, 

goto 40 

'print present value of heartbeats 

50 locate 7,1 

call rdbeat(n) 

print "present heart beats are: " ;n;time$ 
return 



15 



' print present value of counters 
60 out control ,0 'latch timer 0 

tlowQ=inp( timerO) 
20 thigh0=inp{ timerO ) 

out control ,&h40 'latch timer! 

tlowl=inp ( timer 1} 
thighl=inp ( timerl ) 

out control ,&h80 1 latch timer 2 

25 tlow2=inp( timer 2 ) 

thigh2=inp( timer2) 

locate 8,1 

print "timerO: 
,, ;tlow0+thigh0*16;tab(20) ; " timerl: 
30 " ; tlowl+thighl*16 ; 

print tab(40) ;"timer2: " ; tlow2+thigh2*16 

return 



35 

■ set up the heart rate variations 
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respiratory frequency is given by 
1280Hz/buffer 
length 

low frequency is 1280Hz/low frequency 
divider 



70 if numval<= s 0 then beeptprint "setup analog 

buffer first" :return 

71 locate 17,1 

10 print "present If a, rf a (bpm) = ";zlfa,zrfa, "at 

f reqs(Hz) : " ; zf qlow, zf qres 

input "lfa,rfa,low freq: " , zlf an, zrf an, zf qlown 
if zlfan>30, then beep:goto 71 else zlfa=zlfan 
if zrfan>30, then beep:goto 71 else zrfa=zrfan 
15 if zfqlown<,02 or zf rlown>zfqres then beep: goto 

71 else 

zfqlow=zfqlown 
locate 21,1 

print "mean heart rate(bpm)= ";hrbpm 
20 72 locate 22,1 

input "new mean heart rate(bpm) : ",newhrbpm 

if newhrbpm>150 or newhrbpm<30 then beep:goto 72 

else 

h r bpm= newh r bpm 
25 'clear screen after input 

locate 17,1 

print space${72) 

print space$(72) 

print space$(72) 
30 print space$(72) 

print space$(72) 



1 now compute values for hrsetup subroutine 
35 meandiv=76800#/hrbpm '1280*60 ticks/min gives 

1 ticks/beat 
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rfascal=76800#/(hrbpm-2rfa)-76a00#/(hrbpm+zrfa) 

1 rfascal is the total excursion 
1 of respiration 

lfascal=76800#/(hrbpra-2lfa)-76800#/(hrbpm+zlfa) 
5 1 Ifascal is the total excursion 

1 of low frequency 

lowdiv=meandiv- ( r f ascal+lf ascal ) /2# 

tbaserst=128Q#/zfqlow 
10 locate 17,1 

print "tbaser st , rfascal , Ifascal , lowdiv : 

" ; tbaser st ; rfascal ; Ifascal ; 
print lowdiv 

call hrsetup( tbaserst, rfascal, Ifascal /lowdiv) 

15 

return 



20 1 print out interrupt controller parameters 

80 locate 10,1 

mask=inp(&h21) 

mask=maskx or 24 

out &h21,mask 
25 mask=inp(&h21) 

print "8259 IMR( interrupt mask regsiter)= 

";mask;" 

=" ;hex$ (mask) 
return 

30 



' this subroutine will change the analog buffer 
90 locate 12,1 

35 input "enter breathing rate (bpm): ",brate . 

if brate>75 or brate<7 then beeptgoto 90 
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zfqres=brate/60# 
numval=76800#/brate 
ztincr=8*ATN ( 1# ) /numval 
locate 12,40 

5 color 31:print "calculating respiratory 

signal, . . " : color 
7 

call exstint 1 turn off interrupts 

• while 

10 resetting buffer 

reseter=256 

call wrbuf fer (reseter ) 
for itime=0 to numval 

ztnow=ztnow+ztincr 
15 analogval=127*(l#+SIN(ztnow) ) 

call wrbuf fer (analogval) 
next itime 
call instint 
locate 12,40 

20 print "respiratory signal active now " 

return 



25 1 exstall the interrupt and print vector 

9996 els 

locate 4,1 
gosub 10000 
call exstint 
30 locate 5,1 

gosub 10000 
locate 21,1 
9999 stop 



35 



1 subroutine to print out the interrupt vectors 
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10000 def seg=0 

print "IRQ3 gOBMH: " ;hex$ (peek ( sh2C) ) ; " 
";hex$(peek(&h2D));" "; 
5 print hex$(peek(&h2E) ) ; " 

" ;hex$ (peek ( &h2F) ) ; tab{ 40) ; 

print "IRQ4 @0C*4H: " ;hex$ (peek ( &h30 ) ) ; " 

";hex$(peek(&h31));" "; 
print hex$(peek(&h32) ) ";hex$(peek(&h33) ) 
10 return 



end 
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page 66,80 

bd2int«asm - an assembler routine to handle interrupts 

from IRQ3 
Last revision: 1 April 1985 



8088 interrupt location 



10 



absO 



segment at 0 



15 



IRQ3 int 



dw 



; absolute memory segment 
; allows placement of 
; interrupt address 
; future timebase 
; interrupt handler 
; resides at int 0B 
2 dup( ?) ;of f set value is a word 



20 



IRQ4_int 
absO 



org 

dw 
ends 



0CH*4 ;heart beat interrupt 

;handler resides at int 
; 0C 

2 dup( ? ) ;of f set value is a word 



25 



30 



int_buffer: area to save DOS 
dummy interrupt ptr 



int_buffer segment ;data segment containing 

35 ;user interrupt buffer 

save_int dw 4 dup( ? ) ; of f set for two DOS 
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; interrupts saved 
;to be restored using 
;exstint 

5 int buffer ends ; 



10 



working storage for 
time base interrupts 



15 



20 



25 



30 



dseg_tbase 

heartbeats 

ba se_rate 

If a_scal 
rfa_scal 
tbase ctr 



tbase_rst 

tbase_ptr 

tbase_len 

tbase_buffer 

dseg_tbase 



segment ;data segment for timebase 

interrupt 

dw ? ,;keep track, of heart beats 

here (for debugging) 
dw ? ; lowest divisor for heart 

rate 

db ? ;low frequency modulation 

db ? ;high frequency modulation 

dw ? ; counter for timebase 

interrupt 
(use for low frequency 

generation) 
reset value for tbase_ctr 

used to set low frequency 
pointer to present analog 
; value 

? ? length of analog data buffer 
2800dup(?) ;buffer for A/D values 



dw 

dw 

dw 
db 
ends 



35 
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; setup structures to allow access to 
; arguments pased by BASIC 



subroutine rdbeat (BASIC beats) 



10 



15 



f rame_rd 

savebpl 
saveretl 

BASIC_beats 

frame rd 



st rue 



dw 
dd 



dw 



ends 



? 



;define the stack 
;structure for passing 
; arguments to BASIC 
; caller's base pointer 
; return offset and 
; segment pushed by BASIC 
;place to return heart 
; beats to BASIC 



20 



25 



frame wr struc 



savebp2 
saveret2 

analog 

frame wr 



dw 
dd 

dw 

ends 



;subroutine wrbuffer (analog) 

define the stack structure 

for passing 
arguments from BASIC to 

analog buffer 
caller's base pointer 
return offset and segment 

pushed by BASIC 
place to receive analog value 
from BASIC 



7 



30 



35 



frame hr struc 



subroutine hrsetup(B_lreset , 
Br f a_scal / Blf a_scal , Bbase_ 
rate) 

define the stack structure for 
passing 

arguments from BASIC to heart 
rate controls 
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savebp3 dw 

saveret3 dd 

Bbase_rate dw 

5 

Blfa_scal dw 

Brfa_scal dw 

10 B_l reset dw 

frame hr ends 



15 

cseg_calibs 
basic_dgroup 

porta 

20 

portb 

portc 
control 

25 

timerO 
timerl 
timer2 
con8253 

30 
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? ; caller's base pointer 
? ; return offset and segment pushed 
by BASIC 

? ; BASIC'S lowest divider for heart 
; rate 

? ; BASIC'S low frequency scaler 

; (amplitude) 
? ; BASIC'S high frequency scaler 

; (amplitude) 
? ; BASIC'S low frequency timer 

; reset value 



.code segment begins here 



segment 'code 1 
group data , stack , const , heap , memory 

; defining t link to BASIC 
equ 0700H ;port definitions for 

;8255 port expander 
equ 0708H ; these addresses are 

; decoded on the homemade 
equ 0710H ; board 

equ 0718H ; control word in the 

;8255 

equ 0720H ;8253 timerO register 

equ 0721H ;8253 timerl register 

equ 0722H ;8253 timer2 register 

equ 0723H ;8253 control register 



35 



timebase interrupt handler (not accessible to 
BASIC) 



;this routine reads the A/D every timerO 
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15 
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; tick 

;with the next point in the analog 
; buffer 



proc far ;this procedure is not 

;made public 
assume cs : cseg_sync , ds : dseg_ 
base , es : nothing , ss : nothing 
push ax 

push bx 
push dx 
push ds 



save registers used 
during interrupt 



mov ax,dseg_base ;set up segment 

; register for data area 
mov ds,ax ; 



20 



25 



30 



; increment counter used for 

;low frequency generation 
dec tbase_ctr ; decrement 

; interrupt counter 
jnz ctr_ok ;if not zero then 

; continue 
mov ax,tbase_rst ;else reload reset 

; value 
mov tbase_ctr,ax ; 
ctr_ok: 

; get analog value from 

; buffer and send to DAC 



35 



mov bx,tbase_ptr ;get pointer to 
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; analog data 
dec bx ; 

mov al/tbase_buf fer [bx] ;get analog 

; value 



10 



15 



mov dx/ porta 

out dx,al 

mov dx, control 

mov al,6 

out dx,al 

inc al 

out dx,al 



;send analog value 
;to DAC 



; toggle the write 
; latch for the DAC 
;by using direct bit 
; reset 
;and 

; reset commands 



20 



25 



30 



35 



tbase eoi: 



dec tbase_ptr ; point to next 

; value 

jnz tbase_eoi ;if zero, reset 

; pointer 

mov ax,tbase_len ; reset with buffer 

; length 
mov tbase_ptr,ax ; 



mov 
out 

pop 

pop 
pop 
pop 
iret 



.acknowledge interrupt to 
8259A 

al,20H ;send EOI to 8259A 
20H,al ; 



ds 

dx 
bx 
ax 



restore registers which 
were used 



return to place where 
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; interrupt occurred 



debugmsgl db f this is the end of the time 

5 base interrupt 1 

tbase int endp 



10 



15 



20 



25 



heart beat interrupt handler (not accessible 
to BASIC) 



30 



this routine updates the timerl rate generator 
every heart beat with the divider necessary to 
generate the next heart beat 

the respiratory modulation is given by a scaler 
(0-255) 

times the present value of the respiratory 
signal . 

the low frequency modulation is given by scaler 
(0-255) 

times a value selected from the respiratory 

buffer, 
the value selected is the 

(tbase_ctr/tbase_rst)*buf f er_length 

element 



35 



hbeat int 



proc far ;this procedure is not 

;made public 
assume cs : cseg_calibs , ds : dseg_tbase 
assume es : nothing , ss : nothing 
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push 

push 
push 
push 
push 



ax 

bx 
cx 
dx 
ds 



save registers during 
interrupt 



10 



mov 



mov 



ax,dseg_tbase ;set up segment 
; register for data area 
ds , ax ; 



mc 



heartbeats 



15 



20 



25 



30 



35 



; increment heart 
7 beat counter 



calculate low frequency 

modulation 
(the tbase buffer is used as a trig 
table here) 



mov 

dec 
mul 

div 

mov 
mov 

mul 
mov 



ax, tbase_ctr 
ax 

tbase len 



;get number of 
; 1280Hz pulses 



; scale by length 
;of respiratory 
; buffer 
tbase_rst ; divided by reset 

; value to get 
pointer 

bx 7 ax ; to low frequency 

; modulation 

al,tbase_buf fer[bx] ;get 

; sinusoidal 
; modulation 

lfa_scal ;and scale 

; appropriately 

cx,ax ;cx accumulate 

; divider for 
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; 1280Hz clock 



10 



9 

mov 



mov 
mul 
add 



». •calculate respiratory 

modulation 
bx,tbase_ptr ;get present 

; respiration 

;signal 

al, tbase_buf fer [bx] ;f rom 

;buf f er 

rfa_scal ; scale with rfa 

; scaler 

cx,ax ;and add to cx 



15 



20 



generator 



add cx,base rate 



/finally add base 
;rate to get 
; value for 
;timerl (heart 
;rate 

; on 

8253) 



25 



; timer 
mov al f 76H 



send new divider to 8253 



set timer 1 to 
square wave 
generator 



mov dx,con8253 
out dx,al 



30 



35 



mov dx, timer 1 



mov 
out 
mov 
out 



al/Cl 
dx,al 
al/Ch 
dx,al 



send divider to 
timel 

low byte first 
high byte next 
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/ 

mov 
out 



.•••acknowledge interrupt to 
8259A 

al,20H ;send EOI to 8259A 
20H,al ; 



10 



pop 
pop 
pop 
pop 
pop 
iret 



ds 
dx 
cx 
bx 
ax 



restore registers and 



return to place where 
interrupt occurred 



15 debugmsg2 



db 



this is the end of the heart 
beat interrupt 1 



hbeat int 



endp 



20 



subroutine instint ( install_interrupts) 



25 



instint 



30 



35 



proc far 
public instint 

public symbol allows external references 
es,ds used to access interrupt and must 

be restored movsw 
uses ( ds : si ) { es : di ) addr 
assume cs : cseg_calibs , ss : basic_ 

dgroup, ds :basic_dgroup 
assume es :int_buf f er 

; save registers 
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push ds 
push es 



save ds register on the 
stack 

save es register on the 
stack 



10 



push bp ;save BASIC base pointer 

; for return to BASIC 

mov bp,sp ; point stack pointer at 

; frame reference to 
; address of BASIC analog 
;data buffer 



15 



push 

push 
push 



ax 

si 
di 



save additional 
registers 



;set up the segment registers as assumed 



20 



25 



mov ax,int_buf f er ; 

;es points to buffer area to save 

;DOS dummy interrupt vector 



mov 
mov 

mov 
assume 



es ,ax 
ax, 0 

ds , ax 
ds rabsO 



;ds points to 
;abs0 (interrupt table) 



30 



35 



lea 



lea 



movsw 



di,save_int 
si f IRQ3 int 



? setup access to interrupt vectors 

;load offset of 
;save_int in es,di 

;load offset of 
;IRQ3_int in ds,si 
;save DOS dummy 
; interrupt vectors to be 
movsw ; restored later 
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movsw ;now saving IRQ4 

movsw ; 



5 ; install the DAC timebase (IRQ3) 

mov IRQ3_int+2,cseg_calibs 
mov IRQ3_int/ offset tbase_int; 

; interrupt handler now 
; install the heart beat (IRQ4) interrupt handler now 
10 mov IRQ4_int+2 , cseg_ calibs ; 

mov IRQ4 int, offset hbeat_int; 



return to BASIC 



15 

pop di ; restore additional 



registers 



pop . si 
pop * ax 



20 

pop bp ; restore BASIC'S base 

;pointer and 
pop es ^segment registers 

before returning 

25 pop ds ; 

ret 0 ; delete 0 parameters ( 0 

; bytes) from the stack 
?and return to the 
;calling routine 

30 

debugmsg3 db 1 this is the end of the 

interrupt installation 1 



35 instint 



endp 
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subroutine exstint (exstall_ 
interrupts) 



exstint 



10 



15 



proc far 

public exstint ;public symbol allows 

; external references 
assume cs : cseg_calibs , ss : bas ic_dgroup 
assume ds : int_buf f er , es rabsO 
;es,ds used to access interrupt 
;vectors and must be restored 
;movsw uses (ds : si ) { es :di ) addr 



.save registers 



20 



25 



30 



35 



push 
push 
push 
mov 



push 

push 
push 



ds 



es 



bp 

bp,sp 



ax 

si 
di 



save ds register on the 
stack 

save es register on the 
stack 

save BASIC base pointer 
for return to BASIC 
point stack pointer at 

frame reference to 
access arguments passed 
by BASIC (none here) 

save additional 
registers 



set up the segment 
registers as assumed 
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mov ax,0 ;es points to 

;absO (interrupt table) 

mov- es,ax ; 

mov ax, int_buf f er ;ds points to 

; buffer area to save 

mov ds,ax ;DOS dummy 

; interrupt vector 



lea 
lea 

movsw 

movsw 
movsw 
movsw 



di,IRQ3_int 
si, save int 



; setup access to interrupt vectors 

;load offset of 
;IRQ3_int in es,di 

;load offset of 
;save_int in ds/si 
; restore DOS 
;dummy interrupt vectors 
i for IRQ3 
and IRQ4 



return to BASIC 



pop di ; restore additional 

registers 

pop si ? 
pop ax ; 

pop bp ; restore BASIC'S base 

pop es ; pointer and segment 

pop ds ; registers before 

; returning 
ret 0 ; delete 0 parameters (0 

; bytes) from the stack 
;and return to the 
;calling routine 
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debugmsg4 db 'this is the end of the 

interrupt exstallation' 

exstint endp 

5 



10 



subroutine rdbeat (read heart beats 



15 rdbeat 



20 



proc far 

public rdbeat ; public symbol allows 

; external references 
assume cs : cseg_calibs , es : dseg_tbase 
assume ds : basic_dgroup, ss : basic_dgroup 



>save registers 



25 



30 



push 



mov 



push 

push 
push 



bp 

bp,sp 



ax 

es 
di 



?save BASIC base pointer 
;for return to BASIC 
;point stack pointer at 
;frame reference to 
;access arguments passed 
;by BASIC (one here) 

save additional 
registers 



35 



mov 



ax,dseg_tbase ;set up segment 
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mov es r ax 



mov 

mov 
mov 



; register for data area 



ax, heartbeats ;get 

; beats from local memory 
di , [ bp ] , HAS IC_bea t s 
[di],ax ;send 
;beats to BASIC 



10 



, return to BASIC 



15 



POP 

pop 
pop 



di 

es 
ax 



; restore additional 
registers 



20 



25 



debugmsgS 



pop 
ret 



db 



bp ; restore BASIC'S base. 

;pointer , 

2 ;delete 2 parameters (4 

; bytes) from the stack 
;and return to the 
;calling routine 

'this is the end of the heart 
beat read routine 1 



rdbeat endp 



30 



; subroutine wrbuffer (analog) 



35 

wrbuffer 



proc far 
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public wrbuffer ;public symbol allows 

; external references 
assume cs : cseg_calibs , es : dseg_tbase 
assume ds:basic_dgroup, ss :basic_dgroup 



; save registers 

push bp ;save BASIC base pointer 

;for return to BASIC 

mov bp,sp ;point stack pointer at 

; frame reference to 
;access arguments passed 
;by BASIC (one here) 



push ax ;save additional 

; registers 
push bx ; 
push- es ; 
push si ; 

mov ax,dseg_tbase ;set up segment 

; register for data area 
mov es,ax ; 



mov si, [bp] .analog 

mov ax /[si] 

test ah/OFFH 

jz new_buff 

mov tbase_len,0 

mov tbase_ptr/l 

jmp wr_ret 



get analog value 
from BASIC 

if upper byte is 
zero 

then install a 
new point in the 
buffer 

otherwise reset 
the buffer 
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mov bx,tbase_len ;get present 

; pointer and use 
;it 

tbase_buf fer [bx] ,ai ;to store 

; buffer value 
tbase_len ; point to next 

; buffer value 



mov 



inc 



10 



.return to BASIC 



15 wr ret: 



pop 

pop 
pop 
pop 



si 

es 
bx 
ax 



restore additional 

registers 

wr ret: 



20 



25 



debugmsg6 



pop 
ret 



db 



bp ; restore BASIC'S base 

;pointer , 

2 ;delete 1 parameters (2 

;bytes) from the stack 
;and return to the 
; calling routine 

'this is the end of the buffer 
write routine 1 



30 



wrbuf f er 



endp 



35 



subroutine hrsetup(B_lreset , Brf a_scal,Blf a_scal, 
Bbase rate) 
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proc far 

public hrsetup ;public symbol allows 

external references 
assume cs : cseg_calibs , es : dseg_tbase 
assume ds:basic_dgroup,ss :basic_dgroup 



save registers 



push bp 



mov bp,sp 



;save BASIC base 
;pointer for return 
;to BASIC 

;point stack pointer 

;at frame 

; reference to 

; access arguments 

; passed by BASIC 

; (one here) 



push ax 

push es 
push si 



save additional 
registers 



mov ax, dseg_tbase ;set up segment 

; register for 
;data area 
mov es f ax ; 



mov si, [bp] .Bbase_rate ;get lowest 

; divisor for heart 
mov ax f [si] ;rate from BASIC 

mov base_rate,ax ;and save in local 

; data 
; segment 
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mov 



mov 
mov 



si,[bp],Blfa_sacl ;get low freq 

modulation 
scale 
from BASIC 
and save LSbyte in 
local data 
; segment 



ax, [si] 
lfa_scal,al 



10 



15 



20 



mov si, [bp] .Brfa_scal ;get high freq 

; modulation scale 
mov ax, [si] ;from BASIC 

mov rfa_scal,al ;and save 

; LSbyte in local data 
; segment 

mov si, [bp] .B_lreset ;get low freq 

; timer reset value 
mov -ax, [si] ; from BASIC 

mov tbase_rst,ax ;and save in 

; local data segment 



.return to BASIC 



25 



pop si 



pop 
pop 



es 
ax 



; restore additional 
; registers 



30 



pop 
ret 



bp 

a 



restore BASIC 1 s base 
pointer, 

delete 4 parameters (8 
bytes) from the stack 

and return to the 
calling routine 



35 debugmsg 7 db 



•this is the end of the heart rate 
setup routine 1 
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endp 
ends 
end 

10 
15 
20 
25 
30 



hrsetup 
cseg_calibs 



5 



35 
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WHAT IS CLAIMED IS: 

1. An apparatus for correcting artifacts in a 
series of heartbeats comprising: 
5 means for collecting a series of heartbeat 

samples ; 

means coupled to said means for collecting, 
for selecting an appropriate interval between 
heartbeats? 

10 means for identifying a mean variance among 

the intervals between heartbeat samples coupled to said 
means for determining; 

means, coupled to said means for identifying, 
for establishing an acceptable range of slewing rates as 

15 a function of the mean variance; 

means, coupled to said means for determining, 
for particularizing the absolute value of the slewing 
rate of a heartbeat sample relative to the mean 
interval; and 

20 means, coupled to said means for 

particularizing, for substituting the appropriate 
interval between heartbeats for all heartbeat interval 
samples having an absolute value outside the range of 
acceptable slewing rates. 



2. The apparatus as recited in claim 1 
wherein said means for selecting an appropriate interval 
30 comprises means for dividing intervals having a length 
equal to a multiple of the appropriate interval by the 
multiple. 



35 



WO 86/07248 



PCT/US86/01193 



- 331 - 

3. The apparatus as recited in claim 1 
wherein said means for selecting an appropriate interval 
comprises means for discarding interval shorter than a 
predetermined length. 

5 

4. The apparatus as recited in claim 1 
wherein said means for selecting an appropriate interval 
comprises means for determining a mean interval and 
means for substituting a mean interval for intervals 

10 having preceded by a preselected numberof intervals 

having an absolute value outside the range of acceptable 
slewing rates and having an absolute value outside of 
the range of acceptable slewing rates. 

15 5 • A method for correcting artifacts in a 

series of heartbeats comprising the steps of: 

collecting a series of heartbeat samples; 

selecting an appropriate interval between 
heartbeats; 

20 identifying variances in the intervals between 

heartbeats; 

establishing an acceptable range of slewing 
rates as a function of a mean variance; 

particularizing the absolute value of the 
25 slewing rate of a heartbeat sample relative to the mean 
interval; and 

substituting the selected interval for all 
heartbeat interval samples having an absolute value 
outside the range of acceptable slewing rates. 



30 



6. The method as recited in claim 5 wherein 
said selecting step comprises the step of dividing 
intervals having a length equal to a multiple of the 
appropriate interval by the multiple. 
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7. The method as recited in claim 5 wherein 
said selecting step comprises the steps of determining a 
mean interval and substituting a mean interval for 
intervals having preceded by a preselected number of 
5 intervals having an absolute value outside the range of 
acceptable slewing rates and having an absolute value 
outside of the range of acceptable slewing rates. 



10 



15 



8. The method as reicted in claim 5 wherein 
said selecting step comprises the step of discarding 
interval shorter than a predetermined length. 



9. Apparatus for calibrating a heart rate 
power spectrum monitor comprising: 

means for supplying a signal simulating a 
20 heart rate; 

means for generating a signal simulating a 
respiratory frequency fluctuation in heart rate; 

means for providing a signal simulating a low 
frequency fluctuation in heart rate; and 
25 means for applying signals from said means for 

supplying, said means for generating and said means for 
providing to a power spectrum monitor. 



30 



35 
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10. Apparatus for heart rate fluctuation 
power spectral analysis comprising: 
5 means for providing an electrocardiogram 

signal; 

means for supplying an electroplethysmogram- 

signal; 

means, coupled to said means for providing and 
10 to said means for supplying , for obtaining a heart rate 
fluctuation power spectrum from an electrocardiogram 
signal and an electroplethysmogram signal; and 

relative means, coupled to said means for 
obtaining, for displaying a heart rate fluctuation power 
15 spectrum. 



20 



25 



30 



35 
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11. Apparatus for trending heart rate 
fluctuation power spectral data comprising: 
5 means for providing an electrocardiogram 

signal; 

means for supplying an electroplethysmogram 

signal; 

means , coupled to said means for providing and 
10 to said means for supplying , for obtaining a heart rate 
fluctuation power spectrum from an electrocardiogram ■ 
signal and from an electroplethyswogram signal; and 

means / coupled to said means for obtaining , 
for storing heart rate fluctuation power spectral data; 
15 addressable means f coupled to said means for 

storing, for transmitting stored heart rate fluctuation 
power spectral data; 

means / .coupled to said addressable means for 
transmitting/ for converting heart rate fluctuation 
20 power spectral data into graphic form; and 

real time means / coupled to said means for 
converting/ for displaying heart rate fluctuation power 
spectra. 

25 



V 

30 



35 
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12. The apparatus according to claim 11 
further comprising: 

means f coupled between said means for 
obtaining and said means for storing, for segmenting 
data into overlapping samples, 

13. A method for treatment of a condition 
related to malfunctions of the cardiovascular control 
system in a patient comprising the steps of: 

monitoring a power spectrum of heart rate 
fluctuations in the patient; 

identifying a level below about 0,1 
(beats/min.) 2 in the power spectrum of heart rate 
fluctuations at a frequency between about 0.04 and about 
0.10 Hz as indicative of cardiovascular instability; and 

applying a procedure to treat the condition 
and thereby to increase the level of heart rate 
fluctuations between about 0.04 and about 0.10 Hz. 



14. A method for treatment of a condition 
related to malfunctions of the cardiovascular control 
system in a patient comprising the steps of: 

monitoring a power spectrum of heart rate 
fluctuations in the patient; and 

identifying a marked increase to above about 
10 (beats/min.) 2 in heart rate fluctuations at a 
frequency between about 0.04 to about 0.10 Hz as 
indicative of cardiovascular stress; and 

applying a procedure to treat the condition 
and thereby to decrease the level of heart rate 
fluctuations between about 0.04 and about 0.10 Hz. 



35 
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15. A method for treatment of a condition 
related to cardiovascular control system in a patient 
comprising the steps of: 

monitoring a power spectrum of heart rate 
5 fluctuations in the patient; and 

identifying a ratio of the area under a heart 
rate fluctuation power spectrum of a peak at a frequency 
between about 0.04 and about 0*1 Hz to the area under a 
peak in the heart rate fluctuation power spectrum 
10 centered at the mean respiratory rate about 0*1 Hz as 

having an absolute value less than 2.0 as indicative of 
cardiac instability; and 

applying a procedure to treat the condition 
and thereby to increase the ratio. 



16. A method for treatment of a condition 
20 related to cardiovascular control system in a patient 
comprising the steps of: 

monitoring a power spectrum of heart rate 
fluctuations in the patient; and 

identifying a ratio of the area under a heart 
25 rate fluctuation power spectrum of a peak at afrequency 
between about 0.04 and about 0.1 Hz to the area under a 
peak in the heart rate fluctuation power spectrum 
centered at the mean respiratory rate about 0.1 Hz as 
having an absolute value greater than or about 50 as 
30 indicative of cardiac instability; and 

applying a procedure to treat the condition 
and thereby to increase the ratio. 
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FIG. 3 
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FIG. 9A 
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Establish data value tvjmiA » corresponding to 

screen wundow 
Call clrwuruiow (subroutine tn module gvaindowi) 

Clear content© of present totndoti 
Call axes (subrouturve tn module cjwurvdowl) 

Prepare axe 3 for current window 
Call scalar (subroutine in module gnundowi) 

Scale olata to fit mto wwviow 
Call f graph (subrouVi^e cn module f graph©) 
Graphs the <Aata arrays on the screen 



FFT routine 

Check, to dump data 
Compute FFT 
Integrate spectrum 
Graph Spectrum 



Analyze A/0 data 

Call rdbf (subroutine In module s*jnc 7s 

Set up buffers to read 
Check to dump data. 
Read data 



Set up graphics 



Calculate respiratory rote using comb method | 



FFT routine 



Calculate and print spectral amplitudes 



E 



Save trend data "| 



Go to HMa Loop 
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